主题：没法调整打印方向

在窗口打印中的按键中写代码:

e.Form.Page.Landscape = False '横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False '禁止自动旋转
doc.PageSetting.Width =176'纸张宽度为176毫米
doc.PageSetting.Height =83'纸张高度为83毫米

doc.Preview()

foxtable的版本是2个月以内主站下载的,横向打印及自动旋转ture都试过,没法换打印方向,在窗体的页面设置中也更改了各种设置,都无效.

晕了,这是怎么回事呢?打印方向始终是进纸方向,没法调整到垂直于进纸方向

学习了页面设置那一章,把代码改成这样,还是没发把打印的方向调整过来:(颜色部分,true和false都试过)

e.Form.page.Width =210'纸张宽度为210毫米
e.Form.page.Height =150'纸张高度为150毫米
e.Form.page.landscape=True
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False
Doc.PrinterName = "oki5530"
doc.Print()

用楼上狐爸的代码还是会发生自动旋转,然后我把纸张长度设为大于宽度的,就不会自动旋转了,勉强解决问题

e.Form.page.Width =176'纸张宽度为176毫米
e.Form.page.Height =190'纸张高度为190毫米

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False
Doc.PrinterName = "oki5530"

doc.Preview()