代码这样写
e.Form.Page.Width = 100 '纸张宽度为100毫米e.Form.Page.Height = 120 '纸张高度为120毫米Dim doc As PrintDoc = e.Form.GernatePrintDoc()doc.PageSetting.PaperKind = 8doc.Preview()