--
e.Form.BaseForm.height = 625
e.Form.BaseForm.width = 1100
\'e.Form.Page.PaperKind = 9
e.Form.Page.Width = 210 \'纸张宽度为100毫米
e.Form.Page.Height = 297 \'纸张高度为120毫米
e.Form.Page.LeftMargin = 7 \'设置左边距
e.Form.Page.RightMargin = 7 \'设置右边距
e.Form.Page.TopMargin = 7 \'设置上边距
e.Form.Page.BottomMargin = 7 \'设置下边距
e.Form.Page.Landscape = True
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Print()
我这样设置了还是不行,打出来就是竖的