试试
Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")Dim pg As WinForm.TabPage = tb.SelectedPageDim doc As PrintDoc = e.Form.GernatePrintDoc(pg)doc.AutoRotate = Falsedoc.PageSetting.Landscape = True '横向打印
doc.Print()