以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]excel打印如何设置打印纸张大小？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98577)
--  作者：llh0824
--  发布时间：2017/4/1 12:52:00
--  [求助]excel打印如何设置打印纸张大小？
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    With Ws.PageSetup
        .PaperSize = MSExcel.XlPaperSize.xlPaperA4   \'纸张大小
        .CenterHorizontally = True   \'页面水平居中
        .zoom = False
        .FitToPagesWide = 1  \'按照1页的宽度打印
    End With
    App.Visible = True
    Ws.PrintPreview
    App.Quit
请教一下，如何更改成其他格式，或者自定义纸张大小比如长140mm*宽240mm，又该如何
--  作者：有点蓝
--  发布时间：2017/4/1 15:17:00
--  
没有办法，只能指定纸张类型，不能指定尺寸

你可以到打印机服务属性中设置一个指定尺寸的默认纸张