第一,何必用代码。窗口设计的时候,就有页面设置,可以选择横向。
第二,你的代码:
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
'设置打印方向
e.Form.Page.Landscape = True '横向打印
报表都生成了,你再设置窗口的打印属性,有什么意义啊!
这只对以后的打印才有效,也就是第二次才会横向,应该:
e.Form.Page.Landscape = True '横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
[此贴子已经被作者于2009-11-13 9:45:15编辑过]