Dim dyjmc As WinForm.ComboBox = e.Form.Controls("打印机名称")
If dyjmc.Text = "" Then
MessageBox.Show("请选择一个打印机!")
Return
Else
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox2")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.PrinterName = dyjmc.Text
doc.PageSetting.PaperKind = 9
doc.PageSetting.Landscape = True '横向打印
doc.Print()
End If
上面的代码打印还是纵向打印的不管 设置true还是false打印结果都一样,需要a4纸横向打印