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

下面是专业报表打印的代码，类似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宽度垂直的了，也不正确。请问哪里错了。

谢谢！