Dim doc As New PrintDoc '
Dim rt As prt.RenderTable'
Dim tb As Table = Tables("销售明细")
Dim tbl As Table = Tables("销售主表")
'
Dim Rows As List(Of DataRow)'
For i As Integer = tbl.TopRow To tbl.BottomRow '
doc.PageSetting.Width = 241 '
doc.PageSetting.Height = 113 '
doc.AutoRotate = False '
doc.PageSetting.TopMargin = 5
doc.PageSetting.BottomMargin = 5
doc.PageSetting.LeftMargin = 5
doc.PageSetting.RightMargin = 5
rt = New prt.RenderTable '
rt.BreakBefore = prt.BreakEnum.Page '
rt.Style.GridLines.All = New prt.Linedef '
rt.CellStyle.Spacing.All = 2 '
rt.Cells(0, 0).text = "销售出库单" '
rt.Cells(0, 0).SpanCols = 6 '
rt.Cells(0, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '
rt.Cells(0, 0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '
rt.Cells(2, 0).text = "客户名称:" & tbl.Current("公司名称") '
rt.Cells(2, 0).Spancols = 2 '
rt.Rows(0).Style.Borders.All = New prt.LineDef("0mm", Color.white) '
rt.Rows(2).Style.Borders.All = New prt.LineDef("0mm", Color.white)'
rt.Rows(2).Style.Borders.Bottom = New prt.Linedef '
rt.Rows(2).Height = 8 '
rt.RowGroups(0, 1).Style.TextAlignVert = prt.AlignVertEnum.Center '
rt.RowGroups(0, 4).Header = prt.TableHeaderEnum.All '
rt.RowGroups(5, 1).DataBinding.DataSource = BindTables("销售明细") '
Dim ColNames As String() = New String(){"产品", "雇员", "单价" , "折扣", "数量" , "金额" }
For c As Integer = 0 To Colnames.Length - 1
rt.Cells(4, c).Text = ColNames(c)
rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth
rt.Cells(5, c).Text = "[Fields!" & ColNames(c) & ".Value]" '
Next
doc.Body.Children.Add(rt)
Next
Doc.Preview
此主题相关图片如下：连续打印问题jpg.jpg
上面代码执行后，只是连续打印主表的第一行的数据，没有按选中的数据进行打印，如何按选中的连续打印？
加好友 
发短信
Post By：2023/7/1 11:13:00 [显示全部帖子]
