示例二
在命令窗口执行下面的代码,可以列出所有已经安装的打印机名称:
For Each p As String in InstalledPrinters
Output.Show(p)
Next
指定打印机
如果安装了多个打印机,且需要在非默认打印机上打印,可以设置PrintDoc的PrinterName属性,在指定的打印机上打印。
例如
Dim doc As New
PrintDoc
Dim rt As New
prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = "HP LaserJet 6L"
doc.Print()