[求助] 自定义打印纸张 papersize - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 自定义打印纸张 papersize

共有2010人关注过本帖树形打印复制链接主题：[求助] 自定义打印纸张 papersize

Carey

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

等级：幼狐帖子：118 积分：887 威望：0 精华：0 注册：2017/4/27 13:19:00

[求助] 自定义打印纸张 papersize 发帖心情

Post By：2017/5/12 14:08:00 [只看该作者]

With Ws.PageSetup

.PrintArea=PrintArea '打印区域

.BottomMargin=0

.TopMargin=TopMargin '上边距

.LeftMargin=LeftMargin '左边距

.RightMargin=0

.headermargin=0

.footermargin=0

.zoom=False '缩放打印

.FitToPagesWide=1

.papersize =papersize 这句话是指定papersize，他会去默认打印机找存不存在这个papersize，就会报错，但是我可能不是在默认打印机去添加，能不能先指定打印机，再设定纸张大小

End With

wb.saved = True '保存文件

'Ws.PrintOut(Copies:=PrinterNum,ActivePrinter:=printer) 指定打印机

有点色

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

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

Post By：2017/5/12 14:23:00 [只看该作者]

你设置一下默认打印机

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

主题：[求助] 自定义打印纸张 papersize