vb.net Document_PrintPag 打印

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

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴，公司提供的服務(wù)項(xiàng)目有：國際域名空間、網(wǎng)站空間、營銷軟件、網(wǎng)站建設(shè)、沭陽網(wǎng)站維護(hù)、網(wǎng)站推廣。

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) ‘ 再加上一個(gè)間隔

next

end sub

vb.net打印問題

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

怎樣用熱敏打印機(jī)把vb.net窗體內(nèi)文本框內(nèi)容打印出來

用PrintForm控件，在Visual Basic PowerPacks項(xiàng)目列表中vb2008 SP1以后版本就有了，下面是代碼

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è)置信息是存放在這個(gè)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 '這個(gè)是在打印的時(shí)候隱藏打印按鈕

Me.PrintForm1.Form = Me '設(shè)置要打印的窗體

Me.PrintForm1.Print() '調(diào)用打印窗體方法

Me.Button1.Visible = True '再把隱藏的打印按鈕顯示出來

End Sub