主题：如何指定打印机？

生成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