vba中如何改变打印机的设置，如改变纸张的大小和实现纵、横向打印？

jhwxy007

合并了几个文档，其中有几页文字是纵向的，有几页文字是横向的，想用vba编写一个宏，实现一键打印，还需要设置打印机设置中的“自动适应纸张大小”，请问如何实现？

守柔

自己录个宏。

jhwxy007

斑竹，自己录个宏不管用，我想实现的是对打印机属性配置窗口的控制，我想可能大概需要用API吧，不过我对API不熟，请斑竹指正。

守柔

你想设置哪些属性呢？

感觉你说的有些不清楚，能祥细说明一下你想达到的目的吗？

jhwxy007

是‘打印’选项中的‘属性’窗口中的“自动适应A4纸张大小”和“横向打印”，请斑竹务必帮忙！谢谢！！！

守柔

为何我的打印属性中没有“自动适应A4纸张大小”，请上传一图片过来；

另外，我觉得你既是合并文档，又想保留原有页面设置（不知是否这样）？

如果是这样，可不可以按次序直接打印各个需要合并文档的原文档呢？当然也是用VBA解决了，你看看呢？

jhwxy007

大概是斑竹的打印机驱动和我的不一样，不过上述的两项应该会有的。

另外，我已经将几个文档合并好了，分几节，每节采用了不同的页面设置，中间有几页需要横向打印，为了不出现“第x节的页边距设于可打印区域之外，是否继续？”对话框，所以需要设置打印机属性中的自动适应纸张大小，请斑竹帮忙。

jhwxy007

大概是斑竹的打印机驱动和我的不一样，不过上述的两项应该会有的。

另外，我已经将几个文档合并好了，分几节，每节采用了不同的页面设置，中间有几页需要横向打印，为了不出现 “ 第x节的页边距设于可打印区域之外，是否继续?" 对话框，所以需要设置打印机属性中的自动适应纸张大小，请斑竹帮忙。

[此贴子已经被作者于2004-8-23 9:50:57编辑过]

守柔

我没有见到你的图片，请重新上传。

我的打印机是网络打印机，没有你说的的“自动适应纸张大小”。

另外，既然你手动分节，并且采用了不同的页面设置，为何还会出现“……“这个对话框呢？

jhwxy007

我也不知道为什么会出现 “ 第x节的页边距设于可打印区域之外，是否继续?" 对话框，如果点击否，那么打印出来文章的字就会和页面设置的不同，很小，但是设置了打印机属性中的“自动适应纸张大小”确实可以解决问题，所以就一直这么用了，请斑竹帮忙。