以下是引用sloyy在2012-4-15 20:43:00的发言:
可以 复制一遍代码 修改打印机名
生成PrintDoc的代碼不用重複!
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Dim PtNames As String() = {"HP LaserJet 3050 Series PCL 6","Foxit PDF Printer"}
For each ptn as string in Ptnames
Doc.PrinterName = ptn
doc.Print()
Next