如何设置EXCEL的打印格式

Sammi52 2007-03-25 01:34:16

页面设置中有一项[选项]，打开后可以选中“缩放成A4纸”，在CB中用代码该如何实现呢?

...全文

668 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

BenLeak 2007-03-26

打赏
举报

“缩放成A4纸”是打印机的设置，录制的宏中找不到相应的代码，我对照过选中这项与不选中这项的两个宏

那可能就是喷墨打印机的设置了,我看 PDF 与激光打印机的驱动都是没有这个选项的

Sammi52 2007-03-26

打赏
举报

文档中的某一个Sheet设置了"缩放成A4纸"后，并不会影响同一Book中的其它Sheet，而且下一次打开此文档，设置仍旧有效，也就是说此项设置与其它页面设置项都会存在文档中...

ccrun.com 2007-03-25

打赏
举报

那就和Excel没有什么关系了，需要针对当前的打印机进行设置。搜索OpenPrinter,GetPrinter,ClosePrinter等相关函数。

Sammi52 2007-03-25

打赏
举报

调节页面设置的ZOOM没有用，打印出来的不是所期望的效果
“缩放成A4纸”是打印机的设置，录制的宏中找不到相应的代码，我对照过选中这项与不选中这项的两个宏

BenLeak 2007-03-25

打赏
举报

有这个设置吗？

vBorder = MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("PageSetup");
vBorder.OlePropertySet("Orientation", xlLandscape);
vBorder.OlePropertySet("Zoom", 75);
vBorder.OlePropertySet("CenterHorizontally", 1); // 设置打印左右居中
vBorder.OlePropertySet("CenterFooter", "第 &P 页，共 &N 页"); // 设置打印页脚
vBorder.OlePropertySet("PrintTitleRows", "$3:$3"); // 设置打印标题(第二页开始标题)
vBorder.OlePropertySet("PrintGridlines", 0); // 不打印网格

ccrun.com 2007-03-25