尴尬的excel报表打印，寻求有经历的狐友高手解套 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

设计了一个excel报销单模板，在打印环节遇到困难。

使用的打印纸规格为241mm二等分，这样打印页面应设置为24*14.

虽然已经将默认打印机设置成24*14的规格，但是使用代码：

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Verb = "Print" '指定动作直接打印

Proc.Start()

但是实际打印时，还是被Excel强行接管，excel顽固地使用A4规格打印。

就是说，代码Proc.Verb = "Print"不能直接使用默认打印机设置的页面规格去打印。

没办法只好打印每一单时去掉代码Proc.Verb = "Print"而采用预览打印的办法，每一单都要重新设置一下页面再打印。

这样打印工作效率太低，不被操作者待见，只能被吐槽。只能尴尬面对。

为了提高工作效率，原本是要对选择的文档连续打印的，更无望了。

至于采用代码进行页面设置

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
.PaperKind = 9 '设为A4纸

这个打印纸241mm二等分为非国际标准，找不到纸张编号

狐表帮助提供的纸张编号与类型表找不到它的身影。

希望解决了此问题的高手能现身说法。

最后声明，我说的尴尬是我在用户面前尴尬。

[此贴子已经被作者于2020/5/14 16:07:41编辑过]

默认打印机的默认纸张都已经设置，但是不听话。感觉最后都被Excel接管。Excel的默认纸张坚定不移地是A4!

使用VBA的坎是：

'设置页面
.PaperSize = MSExcel.XlPaperSize.xlPaperA4 '纸张大小

这个xlPaperA4 也没法针对24*14写出来。

你指导的连续打印代码在：

excel报表可以连续打印吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具! http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149753&authorid=0&page=0&star=2

能够帮助我加上VBA控制代码吗？