上传项目,上传图片跟代码先
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim tb As Table = Tables("表C")
doc.PageSetting.Landscape = True '横向打印
doc.PageSetting.PaperKind = 6 '纸张类型改为A5 Rotated
Doc.PageSetting.TopMargin = 2 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Doc.PageSetting.RightMargin = 1 '设置右边距
Doc.PageSetting.LeftMargin = 5 '设置左边距
rx = New prt.RenderText
rx.Style.FontSize = 14
rx.Style.FontBold = True
rx.Style.Spacing.Bottom = 5
rx.Text = "产品: " & Tables("表C").Current("产品")
doc.Body.Children.Add(rx)
rt = New prt.RenderTable '创建表格对象
For c As Integer = 0 To 9
rx = New prt.RenderText '创建文本对象
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rx.Text = c '为文本对象设置内容
rt.Cells(0, c).RenderObject = rx '将文本对象放置在单元格中
Next
rt.Rows.Count = 4 '设置总行数
rt.Cols.Count = 10 '设置总列数
rt.Style.GridLines.All = New prt.Linedef
rt.Height = 40 '设置表格的高度为80毫米
rt.Width = 198 '设置表格的宽度为198
rt.Rows(0).Height = 8 '设置第1行的高度为6毫米,剩余高度被平均分排到其他行
doc.Body.Children.Add(rt)
rx = New prt.RenderText
rx.Style.FontBold = True
rx.Style.Spacing.Top = 3
rx.Text = "总计: " & Tables("表C").Rows.Count
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right
doc.Body.Children.Add(rx)
Doc.Preview() '预览报表
此主题相关图片如下:图1.png