以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]如何在弹出的打印对话框中指定打印机  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195701)

--  作者：ylm --  发布时间：2025/3/3 8:58:00 --  [求助]如何在弹出的打印对话框中指定打印机 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() \'显示打印对话框 上面的代码，调出的打印对话框，指定打印机无效，要如何才能指定呢？谢谢了！

--  作者：有点蓝 --  发布时间：2025/3/3 11:01:00 --   这样用：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119812&replyID=807905&skin=1

--  作者：ylm --  发布时间：2025/3/3 12:36:00 --   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编辑过]