各位老师:我设定了个报表,如何修改下面的代码,打印选定的行
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() '预览报表
|