专家坐堂-[建议][求助]关于横纵向打印，官方是不是给个最终的解决方案Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

_PrintForm.Page.LeftMargin = CDbl(e.Form.Controls("NumericComboBox1").text) \'设置左边距

_PrintForm.Page.RightMargin = CDbl(e.Form.Controls("NumericComboBox2").text) \'设置右边距

_PrintForm.Page.TopMargin = CDbl(e.Form.Controls("NumericComboBox3").text) \'设置上边距

_PrintForm.Page.BottomMargin = CDbl(e.Form.Controls("NumericComboBox4").text) \'设置下边距

_PrintForm.Page.Landscape = True \'横向打印

Dim doc As PrintDoc = _PrintForm.GernatePrintDoc()

For Each c As object In Doc.Body.Children \'自动合并合计行的单元格

If c.Gettype.Name Like "*Table*" Then

Dim t As prt.RenderTable = c

For i As Integer = 0 To t.Rows.Count - 1

If t.Cells(i, 2).Text = Nothing AndAlso t.Cells(i, 1).Text <> Nothing Then

For n As Integer =1 To t.Cols.Count - 1 \'表的目录树占用了最左列导致实际列数从1开始,而不是0

If t.Cells(i,n).Text = Nothing AndAlso t.Cells(i,n+1).Text <> Nothing Then

t.Cells(i, 1).SpanCols = n

Exit For

End If

Dim rx As New prt.RenderTable

rx.Cells(0,0).Text = _CompanyName \'调用在全局代码中设置的全局变量

rx.Cells(1,0).Text = _DocumentType \'调用打开本窗口时赋值的全局变量

rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置居中

rx.CellStyle.Spacing.Bottom = 0.5 \'底端内容缩进0.5毫米

rx.Cells(0,0).Style.FontSize = 16 \'设置字体大小

rx.Cells(1,0).Style.FontSize = 14 \'设置字体大小

Doc.PageHeader = rx \'作为页眉使用

doc.PageSetting.Width = CDbl(e.Form.Controls("NumericComboBox5").text) \'纸张宽度为XX毫米

doc.PageSetting.Height = CDbl(e.Form.Controls("NumericComboBox6").text) \'纸张高度为XX毫米

doc.AutoRotate = False \'禁止自动旋转打印内容

If e.Form.Controls("ComboBox_打印机").value = "" Then

Else

Doc.PrinterName =e.Form.Controls("ComboBox_打印机").value

End If

\'doc.Print

doc.Preview() \'预览