主题：同一代码，第一页和第二页打印方向不一致

第一，何必用代码。窗口设计的时候，就有页面设置，可以选择横向。

第二，你的代码：

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
'设置打印方向
e.Form.Page.Landscape = True '横向打印

报表都生成了，你再设置窗口的打印属性，有什么意义啊！
这只对以后的打印才有效，也就是第二次才会横向，应该：

e.Form.Page.Landscape = True '横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()