用PrintForm控件,在Visual Basic PowerPacks項目列表中vb2008 SP1以后版本就有了,下面是代碼
站在用戶的角度思考問題,與客戶深入溝通,找到涪陵網(wǎng)站設(shè)計與涪陵網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:做網(wǎng)站、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、空間域名、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋涪陵地區(qū)。
Imports System.Drawing.Printing
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'先設(shè)置打印頁面的頁邊距
With Me.PrintForm1
Dim myMargins As New Margins '頁邊距設(shè)置信息是存放在這個Margins類型的對象中的
With myMargins '分別設(shè)置上下左右邊距,
.Left = 12
.Right = 12
.Top = 12
.Bottom = 12
End With
.PrinterSettings.DefaultPageSettings.Margins = myMargins '把myMargins對象賦給PrintForm1的設(shè)置屬性
End With
Me.Button1.Visible = False '這個是在打印的時候隱藏打印按鈕
Me.PrintForm1.Form = Me '設(shè)置要打印的窗體
Me.PrintForm1.Print() '調(diào)用打印窗體方法
Me.Button1.Visible = True '再把隱藏的打印按鈕顯示出來
End Sub
實現(xiàn)打印功能的核心是PrintDocument類這個類屬于System.Drawing.Printing名字空間這個類封裝了當(dāng)前的打印設(shè)置頁面設(shè)置以及所
有的與打印有關(guān)的事件和方法
這個類包括以下幾個屬性 事件 和方法
1、PrinterSettings 屬性
存放打印機(jī)的設(shè)置信息這個屬性不需要程序員設(shè)置因為它是由打印對話框獲取的
2、PrintCountroller 屬性
控制打印過程
3、DefaultPageSettings 屬性
存放頁面設(shè)置信息 打印紙大小方向等也不需要程序員設(shè)置因為它是由頁面設(shè)置對話框獲取的
4、DocumentName 屬性
指定文檔名稱,出現(xiàn)在打印機(jī)狀態(tài)窗口中
1。 BeginPrint事件
在打印之前發(fā)出
2. PrintPage事件
每打印一頁是發(fā)出,事件接受一個PrintPageEventArgs參數(shù)該參數(shù)封裝了打印相關(guān)的信息
PrintPageEventArgs參數(shù)有很多重要的屬性
1 Cancel 取消打印
2 Graphics 頁面的繪圖對象
3 HasMorePages 是否還有要打印的頁面
Print 方法 該方法沒有參數(shù) 調(diào)用它將按照當(dāng)前設(shè)置開始打印
若實現(xiàn)打印功能首先構(gòu)造PrintDocument對象添加打印事件
PrintDocument printDocument;
private void InitializeComponent()
{
...
printDocument=new PrintDocument();
printDocument.PrintPage += new PrintPageEventHandler (this.printDocument_PrintPage);
...
}
實現(xiàn)打印事件功能
打印和繪圖類似都是調(diào)用Graphics 類的方法進(jìn)行畫圖 不同的是一個在顯示器上一個在打印紙上并且打印要進(jìn)行一些復(fù)雜的計算
如換行 分頁等。
private void printDocument_PrintPage(object sender,PrintPageEventArgs e)
{
StringReader lineReader = new StringReader(textBox.Text);
Graphics g = e.Graphics; //獲得繪圖對象
float linesPerPage = 0; //頁面的行號
float yPosition = 0; //繪制字符串的縱向位置
int count = 0; //行計數(shù)器
float leftMargin = e.MarginBounds.Left; //左邊距
float topMargin = e.MarginBounds.Top; //上邊距
string line = null; 行字符串
Font printFont = this.textBox.Font; //當(dāng)前的打印字體
SolidBrush myBrush = new SolidBrush(Color.Black);//刷子
linesPerPage = e.MarginBounds.Height / printFont.GetHeight(g);//每頁可打印的行數(shù)
//逐行的循環(huán)打印一頁
while(count linesPerPage ((line=lineReader.ReadLine()) != null))
{
yPosition = topMargin + (count * printFont.GetHeight(g));
g.DrawString(line, printFont, myBrush, leftMargin, yPosition, new StringFormat());
count++;
}
如果本頁打印完成而line不為空說明還有沒完成的頁面這將觸發(fā)下一次的打印事件在下一次的打印中l(wèi)ineReader會
自動讀取上次沒有打印完的內(nèi)容因為lineReader是這個打印方法外的類的成員它可以記錄當(dāng)前讀取的位置
if(line != null)
e.HasMorePages = true;
else
e.HasMorePages = false;
}
打印設(shè)置,構(gòu)造打印對話框 將對話框中設(shè)置的Document屬性賦給printDocument這樣會將用戶的設(shè)置自動保存到printDocument
的PrinterSettings屬性中
protected void FileMenuItem_PrintSet_Click(object sender,EventArgs e)
{
PrintDialog printDialog = new PrintDialog();
printDialog.Document = printDocument;
printDialog.ShowDialog();
}
頁面設(shè)置和打印預(yù)覽與打印設(shè)置原理相同都是構(gòu)造對話框?qū)⒂脩粼趯υ捒蛑械脑O(shè)置保存到相應(yīng)的類的屬性中
protected void FileMenuItem_PageSet_Click(object sender,EventArgs e)
{
PageSetupDialog pageSetupDialog = new PageSetupDialog();
pageSetupDialog.Document = printDocument;
pageSetupDialog.ShowDialog();
}
打印預(yù)覽
protected void FileMenuItem_PrintView_Click(object sender,EventArgs e)
{
PrintPreviewDialog printPreviewDialog = new PrintPreviewDialog();
printPreviewDialog.Document = printDocument;
try
{
printPreviewDialog.ShowDialog();
}
catch(Exception excep)
{
MessageBox.Show(excep.Message, "打印出錯", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
打印就可以直接調(diào)用printDocument的Print()方法因為用戶可能在打印之前還要再更改打印設(shè)置所以
在這里再次顯示打印設(shè)置對話框
protected void FileMenuItem_Print_Click(object sender,EventArgs e)
{
PrintDialog printDialog = new PrintDialog();
printDialog.Document = printDocument;
lineReader = new StringReader(textBox.Text);
if (printDialog.ShowDialog() == DialogResult.OK)
{
try
{
printDocument.Print();
}
catch(Exception excep)
{
MessageBox.Show(excep.Message, "打印出錯", MessageBoxButtons.OK, MessageBoxIcon.Error);
printDocument.PrintController.OnEndPrint(printDocument,new PrintEventArgs());
}
}
}
總結(jié)打印的過程是
1 在應(yīng)用程序窗體初始化時構(gòu)造PrintDocument對象 添加 printDocument 的 PrintPage 方法
2 實現(xiàn)PrintPage方法 4 在用戶的單擊事件中調(diào)用 printDocument 的 Print方法實現(xiàn)打印功能
在這中間可能要用到 PrintDialog PrintPreviewDialog PageSetupDialog 設(shè)置和查看打印效
利用 printdocument控件
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim stringFont As New Font("Arial", 16)
Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
Dim strFormat As New StringFormat
Dim s As String
s = "print word" '打印的內(nèi)容
e.Graphics.DrawString(s, stringFont, Brushes.AliceBlue, rectDraw, strFormat)
End Sub
可以把數(shù)據(jù)導(dǎo)出到EXCEL,然后使用EXCEL進(jìn)一步處理后使用。
也可以做成vb報表(VB自帶有)。
先設(shè)置報表格式,打印時向報表傳遞數(shù)據(jù)就可以了。
選擇開始菜單中→程序→【Management SQL Server 2008】→【SQL Server Management Studio】命令,打開【SQL Server Management Studio】窗口,并使用Windows或 SQL Server身份驗證建立連接。
在【對象資源管理器】窗口中展開服務(wù)器,然后選擇【數(shù)據(jù)庫】節(jié)點
右鍵單擊【數(shù)據(jù)庫】節(jié)點,從彈出來的快捷菜單中選擇【新建數(shù)據(jù)庫】命令。
執(zhí)行上述操作后,會彈出【新建數(shù)據(jù)庫】對話框。在對話框、左側(cè)有3個選項,分別是【常規(guī)】、【選項】和【文件組】。完成這三個選項中的設(shè)置會后,就完成了數(shù)據(jù)庫的創(chuàng)建工作,
在【數(shù)據(jù)庫名稱】文本框中輸入要新建數(shù)據(jù)庫的名稱。例如,這里以“新建的數(shù)據(jù)庫”。
在【所有者】文本框中輸入新建數(shù)據(jù)庫的所有者,如sa。根據(jù)數(shù)據(jù)庫的使用情況,選擇啟用或者禁用【使用全文索引】復(fù)選框。
在【數(shù)據(jù)庫文件】列表中包括兩行,一行是數(shù)據(jù)庫文件,而另一行是日記文件。通過單擊下面的【添加】、【刪除】按鈕添加或刪除數(shù)據(jù)庫文件。
切換到【選項頁】、在這里可以設(shè)置數(shù)據(jù)庫的排序規(guī)則、恢復(fù)模式、兼容級別和其他屬性。
切換到【文件組】頁,在這里可以添加或刪除文件組。
完成以上操作后,單擊【確定】按鈕關(guān)閉【新建數(shù)據(jù)庫】對話框。至此“新建的數(shù)據(jù)”數(shù)據(jù)庫創(chuàng)建成功。新建的數(shù)據(jù)庫可以再【對象資源管理器】窗口看到。
用msgbox()顯示對話框
msgbox的用法很多,基礎(chǔ)的就是msgbox(“你要顯示的內(nèi)容”)
或者msgbox(“你要顯示的內(nèi)容”,16,"對話框名稱")'16是對話框的類型,還有幾個鍵的組合代碼,這個你可以
查查
,很多,或者你也可以用提示給出的類型,比如MsgBoxStyle.Exclamation就是顯示錯誤對話框,