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

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都试过,没法换打印方向,在窗体的页面设置中也更改了各种设置,都无效.

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

doc.AutoRotate = False \'禁止自动旋转
doc.PageSetting.Width =176\'纸张宽度为176毫米
doc.PageSetting.Height =83\'纸张高度为83毫米

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

我俩都错了，你看这个:

http://help.foxtable.com/topics/1602.htm

学习了页面设置那一章,把代码改成这样,还是没发把打印的方向调整过来:(颜色部分,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()

e.Form.Page.Width = 196 \'纸张宽度为196毫米
e.Form.Page.Height = 101.8 \'纸张高度为101.8毫米

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False \'禁止自动旋转打印内容

Doc.PrinterName = "EPSON LQ-730K ESC/P2"
doc.Print()  \'直接打印

我设的可以直接打印。。。

   但一预览就出。。。我怀疑老六买打印程序有问题。。。一预览就将自定义纸张转为其他纸张。。。

当纸张宽度大于纸张高度的时候，就被自动转方向了，我一直以为是我在代码方面没有研究明白！