先自动列宽,再打印呗,如代码
e.form.controls("table1").Table.AutoSizeCols
Dim doc As PrintDoc = e.Form.GernatePrintDoc()doc.Preview