添加空間:Imports System.Drawing.Printing
創(chuàng)新互聯(lián)專業(yè)做網(wǎng)站、網(wǎng)站建設,集網(wǎng)站策劃、網(wǎng)站設計、網(wǎng)站制作于一體,網(wǎng)站seo、網(wǎng)站優(yōu)化、網(wǎng)站營銷、軟文推廣等專業(yè)人才根據(jù)搜索規(guī)律編程設計,讓網(wǎng)站在運行后,在搜索中有好的表現(xiàn),專業(yè)設計制作為您帶來效益的網(wǎng)站!讓網(wǎng)站建設為您創(chuàng)造效益。
添加combobx1控件:
ComboBox1.Items.Clear()
For i As Integer = 0 To PrinterSettings.InstalledPrinters.Count - 1
ComboBox1.Items.Add(PrinterSettings.InstalledPrinters.Item(i))
Next
列出所有的打印機
實現(xiàn)打印功能的核心是PrintDocument類這個類屬于System.Drawing.Printing名字空間這個類封裝了當前的打印設置頁面設置以及所
有的與打印有關(guān)的事件和方法
這個類包括以下幾個屬性 事件 和方法
1、PrinterSettings 屬性
存放打印機的設置信息這個屬性不需要程序員設置因為它是由打印對話框獲取的
2、PrintCountroller 屬性
控制打印過程
3、DefaultPageSettings 屬性
存放頁面設置信息 打印紙大小方向等也不需要程序員設置因為它是由頁面設置對話框獲取的
4、DocumentName 屬性
指定文檔名稱,出現(xiàn)在打印機狀態(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)用它將按照當前設置開始打印
若實現(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 類的方法進行畫圖 不同的是一個在顯示器上一個在打印紙上并且打印要進行一些復雜的計算
如換行 分頁等。
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; //當前的打印字體
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是這個打印方法外的類的成員它可以記錄當前讀取的位置
if(line != null)
e.HasMorePages = true;
else
e.HasMorePages = false;
}
打印設置,構(gòu)造打印對話框 將對話框中設置的Document屬性賦給printDocument這樣會將用戶的設置自動保存到printDocument
的PrinterSettings屬性中
protected void FileMenuItem_PrintSet_Click(object sender,EventArgs e)
{
PrintDialog printDialog = new PrintDialog();
printDialog.Document = printDocument;
printDialog.ShowDialog();
}
頁面設置和打印預覽與打印設置原理相同都是構(gòu)造對話框?qū)⒂脩粼趯υ捒蛑械脑O置保存到相應的類的屬性中
protected void FileMenuItem_PageSet_Click(object sender,EventArgs e)
{
PageSetupDialog pageSetupDialog = new PageSetupDialog();
pageSetupDialog.Document = printDocument;
pageSetupDialog.ShowDialog();
}
打印預覽
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()方法因為用戶可能在打印之前還要再更改打印設置所以
在這里再次顯示打印設置對話框
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 在應用程序窗體初始化時構(gòu)造PrintDocument對象 添加 printDocument 的 PrintPage 方法
2 實現(xiàn)PrintPage方法 4 在用戶的單擊事件中調(diào)用 printDocument 的 Print方法實現(xiàn)打印功能
在這中間可能要用到 PrintDialog PrintPreviewDialog PageSetupDialog 設置和查看打印效
Public Function EnumPrinters()
Dim PrinterSQL As String =
"SELECT * FROM Win32_Printer"
Dim
printers As Management.ManagementObjectCollection = New
Management.ManagementObjectSearcher(PrinterSQL).Get()
Dim printer As
Management.ManagementObject
For
Each printer In
printers
Dim pde As Management.PropertyDataCollection.PropertyDataEnumerator =
printer.Properties.GetEnumerator
While
(pde.MoveNext)
Try
If pde.Current.Name = "DriverName"
Then
combobox1.Items.Add(pde.Current.Value.ToString)
End
If
Catch ex As
Exception
MessageBox.Show(ex.ToString)
End
Try
End
While
Next
End Function