主题：[求助]如何打印选定行，

 各位老师：我设定了个报表，如何修改下面的代码，打印选定的行

Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 5 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 2 '设置上边距
Doc.PageSetting.BottomMargin = 2 '设置下边距
Dim tbl As Table = Tables("part1")
For i As Integer = 0 To tbl.Rows.Count - 1
Dim rw As Row = tbl.Rows(i)
    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim rx As New prt.RenderText '定义一个文本对象
    Dim rg As New prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Dim ra As New prt.RenderArea '定义一个容器
ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never  '禁止容器因为分页而被垂直分割
'加入标题
rx.text = "成都泰隆游乐设备有限公司--玻钢产品加工工艺单"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Top = 2
rx.Style.Spacing.Bottom = 1 '和下面的对象(表格)距离3毫米
 


'指定行数?列数?列宽?行高
rt.Rows.Count = 5 '设置总行数
rt.Cols.Count = 6 '设置总列数
rt.Height = 55 '设置表格的高度为80毫米
rt.Rows(0).Height = 8
rt.Cols(0).Width = 20
rt.Cols(1).Width = 5
rt.Cols(2).Width = 25
rt.Cols(3).Width = 25
rt.Cols(4).Width = 25
rt.Cols(5).Width = 35
rt.Cols(6).Width = 25

rt.Rows(1).Height = 8
rt.Rows(2).Height = 8
rt.Rows(3).Height = 8
rt.Rows(4).Height = 10
rt.Rows(5).Height = 18
'-----------生成条码-----
Bar.Symbology = Barpro.Symbology.Code128
bar.Code = rw("产品ID")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)

rt.Cells(0,0).SpanCols = 2 '第1行第1个单元格向右合并
rt.Cells(1,0).SpanCols = 2 '第2行第1个单元格向右合并
rt.Cells(2,0).SpanCols = 2 '第3行第1个单元格向右合并
rt.Cells(3,0).SpanCols = 2 '第4行第1个单元格向右合并
rt.Cells(4,1).SpanCols = 6 '第5行第1个单元格向右合并
rt.Cells(5,1).SpanCols = 6 '第7行第1个单元格向右合并

'设置表格样式
rt.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中

rt.Cells(0,0).Text= "工程名称:"
rt.Cells(1,0).Text = rw("工程名称")
rt.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(0,2).Text= "项目名称:"
rt.Cells(1,2).Text = rw("项目名称")
rt.Cells(1,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(0,3).Text= "产品名称:"
rt.Cells(1,3).Text = rw("产品名称")
rt.Cells(1,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(0,4).Text= "零件名称:"
rt.Cells(1,4).Text = rw("零件名称")
rt.Cells(1,4).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(0,5).Text= "零件图号:"
rt.Cells(1,5).Text = rw("零件图号")
rt.Cells(1,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(0,6).Text= "制作小组:"
rt.Cells(1,6).Text = rw("制作小组")
rt.Cells(1,6).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(2,0).Text= "胶衣颜色:"
rt.Cells(3,0).Text = rw("胶衣颜色")
rt.Cells(3,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(2,2).Text= "背面颜色:"
rt.Cells(3,2).Text = rw("背面颜色")
rt.Cells(3,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(2,3).Text= "产品面积:"
rt.Cells(3,3).Text = rw("面积")
rt.Cells(3,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(2,4).Text= "产品厚度:"
rt.Cells(3,4).Text = rw("厚度")
rt.Cells(3,4).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(2,5).Text= "法兰厚度:"
rt.Cells(3,5).Text = rw("法兰厚度")
rt.Cells(3,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(4,0).Text= "产品尺寸:"
rt.Cells(4,1).Text = rw("尺寸")
rt.Cells(5,0).Text= "备注:"
rt.Cells(5,1).Text = rw("零件备注")

   
    ra.Children.Add(rx) '加入到容器中
    ra.Children.Add(rg)
    ra.Children.Add(rt)
   
    Doc.Body.ChildRen.Add(ra) '将容器加入到报表中

Next
Doc.Preview() '预览报表

勾选的参考：http://www.foxtable.com/webhelp/scr/1636.htm