方法一：
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable,I Love YOU!"
doc.Body.Children.Add(rt)
For i As Integer = 1 To 2
doc.Print
Next
方法二：
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable,I Love YOU!"
doc.Body.Children.Add(rt)
Dim ps As new System.Drawing.Printing.PrinterSettings
'ps.PrinterName = "打印机名"
ps.Copies = 2
doc.Print(ps)
加好友 
发短信
Post By：2015/8/18 17:30:00 [显示全部帖子]
