VS2005如何用VB.NET代碼實現(xiàn)打印功能

有個PrintDocument控件,可以實現(xiàn)打印。。。

創(chuàng)新互聯(lián)為客戶提供專業(yè)的網(wǎng)站設(shè)計、網(wǎng)站制作、程序、域名、空間一條龍服務(wù)，提供基于WEB的系統(tǒng)開發(fā). 服務(wù)項目涵蓋了網(wǎng)頁設(shè)計、網(wǎng)站程序開發(fā)、WEB系統(tǒng)開發(fā)、微信二次開發(fā)、移動網(wǎng)站建設(shè)等網(wǎng)站方面業(yè)務(wù)。

MSDN原話：

使用 PrintDocument 組件

涉及 PrintDocument 組件的兩種主要情況是：

簡單的打印作業(yè)，如打印單個文本文件。在這種情況下，應(yīng)將 PrintDocument 組件添加到 Windows 窗體，然后在 PrintPage 事件處理程序中添加打印文件的編程邏輯。 該編程邏輯應(yīng)以使用 Print 方法打印文檔結(jié)束。

此方法向打印機發(fā)送一個 Graphics 對象，該對象包含在 PrintPageEventArgs 類的 Graphics 屬性中。

有關(guān)如何使用 PrintDocument 組件打印文本文檔的示例，請參見

如何：打印 Windows 窗體中的多頁文本文件。

更為復(fù)雜的打印作業(yè)，如想要重新使用已編寫的打印邏輯的情況。

在這種情況下，應(yīng)從 PrintDocument 組件派生一個新組件，并重寫

（請參見 Visual Basic 的 重寫或 C# 的 重寫） PrintPage 事件。

將 PrintDocument 組件添加到窗體后，它出現(xiàn)在 Windows 窗體設(shè)計器底部的欄中

vb.net 打印問題

可以將打印機默認打印設(shè)置改為黑白打印，如果打印對象是RGB配色，打印機驅(qū)動轉(zhuǎn)換為CMYK顏色時，黑色都是由彩色墨水組成的

2.可以試一下圖片從一個標準灰度圖片格式化而來，這樣圖片自身只有黑白色，也許可以

vb.net 打印功能

可以把數(shù)據(jù)導(dǎo)出到EXCEL，然后使用EXCEL進一步處理后使用。

也可以做成vb報表(VB自帶有)。

先設(shè)置報表格式，打印時向報表傳遞數(shù)據(jù)就可以了。

vb.net打印問題

PRINTER.PRINT 用這個，直接打印到默認打印機了，位置的確定是你根據(jù)控件的位置就可以確定了

vb.net Document_PrintPag 打印

我?guī)湍惆炎詈笠徊糠值恼Z句順序調(diào)換一下。你試一試

sub button1_click() '---執(zhí)行打印

Dim pd As PrintDocument = New PrintDocument

pd.PrinterSettings = PrintDialog1.PrinterSettings

If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

for i=0 to 1 '這樣可以兩次截圖

CaptureScreen() '--執(zhí)行前面自定義函數(shù)截圖

AddHandler pd.PrintPage, AddressOf Document_PrintPage

pd.Print()

Threading.Thread.sleep(100) ‘ 再加上一個間隔

next

end sub

vb.net Document_PrintPage打印多行文本

比如：

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐標和不同的字體來打印各變量。畫線用：

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具體坐標數(shù)值自己用尺量出，再換算。