| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 自定义打印纸张 papersize (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100498) |
| -- 作者：Carey -- 发布时间：2017/5/12 14:08:00 -- [求助] 自定义打印纸张 papersize 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) 指定打印机
|
| -- 作者：有点色 -- 发布时间：2017/5/12 14:23:00 -- 你设置一下默认打印机
Dim obj As object = CreateObject("WScript.Network") |