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

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

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

 

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

 

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

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

 

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

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