[求助]如何在弹出的打印对话框中指定打印机 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何在弹出的打印对话框中指定打印机

共有63人关注过本帖树形打印复制链接主题：[求助]如何在弹出的打印对话框中指定打印机

ylm

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：319 积分：3242 威望：0 精华：6 注册：2008/8/31 19:42:00

[求助]如何在弹出的打印对话框中指定打印机 发帖心情

Post By：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() '显示打印对话框

上面的代码，调出的打印对话框，指定打印机无效，要如何才能指定呢？谢谢了！

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112503 积分：572807 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2025/3/3 11:01:00 [只看该作者]

ylm

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：319 积分：3242 威望：0 精华：6 注册：2008/8/31 19:42:00

Post By：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编辑过]

主题：[求助]如何在弹出的打印对话框中指定打印机