Dim tbl As Table = Tables("开校人数_table2")
If tbl.Cols.Contains("学校名称")=False
messagebox.show("请选刷新统表再打印")
Return
End If
Dim rb1 As WinForm.RadioButton = e.Form.Controls("radiobutton1")
Dim rb2 As WinForm.RadioButton = e.Form.Controls("radiobutton2")
Dim rb3 As WinForm.RadioButton = e.Form.Controls("radiobutton3")
Dim doc As New PrintDoc
Dim rt As Prt.RenderTable
Dim rx As prt.RenderText
Dim Rows As List(Of DataRow)
Dim Rows1 As List(Of DataRow)
Dim regions As List(of String())
If rb1.Checked=True
regions= tbl.DataTable.GetValues("学期|学校名称") ''''改后句子
End If
If rb2.Checked=True
regions= tbl.DataTable.GetValues("学期|所属中心校") ''''改后句子
End If
If rb3.Checked=True
regions= tbl.DataTable.GetValues("学期|学期") ''''改后句子
End If
Dim rm As prt.RenderEmpty
doc.PageSetting.Landscape = True
Doc.PageSetting.LeftMargin = 5 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 5 '设置上边距
Doc.PageSetting.BottomMargin = 5 '设置下边距
For Each region As String() In Regions
rm = new prt.RenderEmpty '定义一个新的空对象
rm.BreakBefore = prt.BreakEnum.Page '打印前换页
doc.Body.Children.Add(rm)
rx = New prt.RenderText
rx.Style.Font = New Font("黑体", 16, FontStyle.Bold) '
rx.Style.FontBold = True
rx.Style.Spacing.Bottom = 2
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx.Text = "东兴区20" & region(0) & "开校人数统计"
doc.Body.Children.Add(rx)
rt = New prt.RenderTable
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.black)
rt.Style.Font = New Font("宋体", 8)
If rb1.Checked=True
Rows = tbl.DataTable.Select("[学校名称] ='" & region(1) & "' and 学期='" & region(0) & "'")
End If
If rb2.Checked=True
Rows = tbl.DataTable.Se lect("[所属中心校] ='" & region(1) & "' And 学期='" & region(0) & "'")
End If
If rb3.Checked=True
Rows = tbl.DataTable.Select("[学期] ='" & region(0) & "'")
End If
Dim hd As Integer = tbl.HeaderRows '获得表头的层数
tbl.CreateReportHeader(rt,False) '生成表头,包括所有列
For c As Integer = 2 To tbl.Cols.Count -1 '
rt.Cells(0,c-2).Text = tbl.Cols(c).Name
Dim r As Integer
For r = 0 To Rows.Count -1
rt.Rows(0).Height = 5
rt.Rows(r+1).height = 4
rt.Cells(r+hd,c-2).Text = rows(r)(tbl.Cols(c).Name)
Next
Next
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All
doc.preview()
此主题相关图片如下：qq图片20190224212719.png
此主题相关图片如下：qq图片20190224212853.png
老师，成了这个样子，因为宽度有限，前列不打印，怎么改才要得，谢谢
加好友 
发短信
Post By：2019/2/24 14:16:00 [只看该作者]
