Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = "Microsoft Print to PDF" '指定打印机
Doc.printDialog() '显示打印对话框
上面的代码，调出的打印对话框，指定打印机无效，要如何才能指定呢？谢谢了！
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = "Microsoft Print to PDF" '指定打印机
Doc.printDialog() '显示打印对话框
这个代码，如果是直接打印，可以指定打印机的。不过，试了2楼的方法，可以直接设定打印份数了，那用对话框就没意义了，本来是在对话框中也是为了指定份数的。搞定收工了，
谢谢了
[此贴子已经被作者于2025/3/3 12:38:40编辑过]