Dim t As Table = e.Form.Controls("Table1").Table For Each c As Col In t.Cols t.Cols(c.Name).TextAlign = TextAlignEnum.Center Next Dim grp As WinForm.Panel = e.Form.Controls("Panel1") Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp) doc.PageSetting.Landscape = True '横向打印 doc.Preview()