主题：自定义纸张预览后打印方向就不正确了(基本解决)

下面是专业报表打印的代码，类似A5的纸张，但打印机的进纸方向是按宽度210mm进入。所以我设置是否横向打印为false

Dim doc As New PrintDoc '定义一个报表
doc.AutoRotate = False '禁止自动旋转打印内容

'---设置打印纸张
doc.PageSetting.Width = 210
doc.PageSetting.Height = 145
doc.PageSetting.Landscape = False  '是否横向打印
Doc.PageSetting.LeftMargin = 10  '设置左边距
Doc.PageSetting.RightMargin = 10  '设置右边距
Doc.PageSetting.TopMargin = 10  '设置上边距
Doc.PageSetting.BottomMargin 10  '设置下边距

 

打印出来的结果是方向正确，但只能显示一半的数据。即纸的右侧还空着却没打印出来。

 

若将doc.PageSetting.Landscape = true 则打印预览时好象显示正确，但打印出来是按横向打印的，抬头变成了和210mm宽度垂直的了，也不正确。请问哪里错了。

谢谢！

 横向打印是不太正常，这样弄一下

 

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

 

前面3点我是照着设置了，但我的打印机是喷墨的，没有第四项类似的选择纸张的设置，所以怎么都没弄好。是不是针式打印机一定会有啊？

有没有直接写在代码里就生效的方法？因为我的专业报表的代码是直接写在函数里面的。

 

不论是什么打印机，都有纸张设置的。关键是纸张设置和设置成横向。

此主题相关图片如下：360截图20140605212907310.jpg

设置自定义纸张的是可以，但是打印首选项里没有帮助类似的选择自定义纸张的地方，我只好将方向那里选择纵向和横向都试过了，还是和以前打印的一样，不正确，没有任何改变

 那就无解了。你多设置一下看看情况。

弄了很久，发现原来我的打印机不用前面的设置，直接在打印首选项内设置自定义纸张就可以了，但是有个奇怪的问题设置了自定义纸张后，如果专业报表直接用Doc.Print() 就可以，但想用Doc.Preview() 预览一下再打印就和前面一样不正确了，这种情况要怎么处理，谢谢！

 

这种情况，试试把横向打印的代码去掉看看。

唉，各种方式都试过了，去掉横向打印的代码及禁止旋转等都不可以，不管怎么样设置，报表最后用

Doc.Print() 都正确打印出来

用Doc.Preview()再选择打印出来就不对。