主题：[求助]EXCEL报表，直接打印时，如何禁止自动旋转

 

我的意思是，你在桌面上，新建一个excel文件，然后设置成横向打印，看打印效果。有可能是你打印机那里设置错了。

换了几台电脑，有激光与针式，多有这样。我试一下

 

我的意思是，单独建excel文件，脱离foxtable，看打印效果。

试了，只要是A5，设了横向，打出来却不是横向的。

 

可能A5纸张是14.8*21，宽度要小，高度要大，所以，系统默认会自动根据实际纸张的大小，判断是否需要旋转打印内容，以便更好地配合纸张。

我们的入出库单，就是A5连续的无碳打印纸，横向的，晕S，我都不知道如何横着找印了。

 

如果设成A4竖向，打印就正常了，但没办法连续打印的。

 

因为一张A4就是二张A5大小。A4=21*29.7cm,A5=14.8*21cm

 

那就是打印机设置的问题了，你去到设备那里设置一下，类似

 

http://www.foxtable.com/help/topics/2904.htm

 

按帮助上说的，打印设置显然是不能设自动旋转的，否则，不用加如果纸张的宽度超过高度,要加上这行代码
。我不知道Excel报表要加什么代码，才能禁止不让系统自动旋转？请版主帮忙看看。谢谢先。

 

5、完成上述设置之后，我们就可以常规编写打印代码了：

Dim doc As New PrintDoc()
doc.PageSetting.Width = 200 '纸张宽度为200毫米
doc.PageSetting.Height = 170 '纸张高度为170毫米
doc.AutoRotate = False '如果纸张的宽度超过高度,要加上这行代码
'添加打印内容
doc.Preview