以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请教 如何设置Excel纸张大小 我想连续打印 设置A4的一半大小？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188934)

--  作者：jswjyjf --  发布时间：2023/10/31 21:09:00 --  请教 如何设置Excel纸张大小 我想连续打印 设置A4的一半大小？ 如何设置Excel纸张大小  我想连续打印 设置A4的一半大小？

--  作者：有点蓝 --  发布时间：2023/10/31 21:22:00 --   http://www.foxtable.com/webhelp/topics/2904.htm

--  作者：jswjyjf --  发布时间：2023/10/31 22:16:00 --   我的代码是这样的  If  Tables("出库单").current("单据状态")="已审核"     Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售单.xls")     Dim fl As String = ProjectPath & "Reports\\销售单.xls"     Book.Build()     Book.Save(fl)     Dim App As New MSExcel.Application     App.Visible = False     App.Caption = "汉思软件"     Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)     Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) ws.PageSetting.Width = 200  \'纸张宽度为200毫米 ws.PageSetting.Height = 170  \'纸张高度为170毫米 ws.AutoRotate = False  \'如果纸张的宽度超过高度,要加上这行代码     App.Visible = True     ShowAppWindow("汉思软件",2) \'添加打印内容     Ws.PrintPreview     App.Quit Else     messagebox.show("已审核的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)     Return End If 打印出错了

--  作者：有点蓝 --  发布时间：2023/10/31 22:43:00 --   无法使用代码控制。只能按2楼添加纸张，然后打开execl模板选定页面大小

--  作者：jswjyjf --  发布时间：2023/11/1 7:44:00 --   嗯 明白了 谢谢