报表标签打印怎么能打印时方向自动为纵向 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

打印机是得力的-888D

报表代码是

Dim doc As New PrintDoc '定义一个报表

Dim w As Integer=40

Dim h As Integer=30

doc.PageSetting.Width = w '纸张宽度为100毫米

doc.PageSetting.Height = h

Dim rt As New prt.RenderTable() '定义一个表格对象

rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型

rt.Width = w-4 '表格宽度为50mm

rt.height=h-4

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中

rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中

Doc.PageSetting.LeftMargin = 2 '设置左边距

Doc.PageSetting.RightMargin = 1 '设置右边距

Doc.PageSetting.TopMargin = 2 '设置上边距

Doc.PageSetting.BottomMargin = 1 '设置下边距

'rt.Style.Spacing.Bottom = 1 '设置下间隔为3毫米

rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.

rt.Cols(0).Width = 10

rt.cells(0,0).Text = "编码"

rt.Cells(0,1).Text = CurrentTable.Current("商品编码")

rt.Cells(1,0).Text = "品名"

rt.Cells(1,1).Text = CurrentTable.Current("商品名称") & CurrentTable.Current("标记")

rt.cells(2,0).text=CurrentTable.Current("编码")

rt.cells(2,0).SpanCols=2

Doc.Body.Children.Add(rt) '将表格对象加入到报表中

Doc.Preview() '预览报表

主题：报表标签打印怎么能打印时方向自动为纵向