网络打印机不能设置纸张。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网络打印机不能设置纸张。

共有2096人关注过本帖树形打印复制链接主题：网络打印机不能设置纸张。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/6 10:16:00 [显示全部帖子]

你没有把网络打印机设置成默认打印机吧？

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter(drp("打印机"))

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/6 11:00:00 [显示全部帖子]

以下是引用baicaocao在2017/6/6 10:22:00的发言：
必须设置成默认打印机才可以？

你可以先记录之前的默认打印机，然后把默认打印机改成新的，打印后，再改回来。

也可以用下面的方法，处理，先设置activeprinter

on error resume Next

Dim App As New MSExcel.Application
Dim Wb = App.Workbooks.Open("g:\test.xls")
Dim Ws = Wb.Worksheets(1)
Dim pname As String = "fax"
For i As Integer = 0 To 10
app.activeprinter = pname & " 在 Ne" & Format(i, "00") & ":"
Next
output.show(app.activeprinter)

App.Quit()

下一主题 >> << 上一主题

主题：网络打印机不能设置纸张。