老师好，我专业报表打印，搞 了一天，仍有2个问题未解决
1.未填写数据的单元格出现0值，想实现如未填充数据，则显示空白行
2.隐藏部分列后，打印预览出现如图情况，右侧重叠单元格
此主题相关图片如下：c9}e)g2rjtlkry$3pjk3.png
因水平有限，请老师帮该一下代码，谢谢
Syscmd.Column.UnHide()
Dim doc As New PrintDoc
Dim rt As New Prt.RenderTable
Dim rx As prt.RenderText
Dim cnt As Integer
Dim tb As Table = Tables("计算表")
Dim ColNames As New List(Of String)
For Each cl As Col In tb.Cols '排除隐藏列
If cl.Visible Then
ColNames.Add(cl.Name)
End If
Next
rt.Style.Font = tb.Font
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.LightGray)
rt.CellStyle.Spacing.All = 1
rt.Style.Font = tb.Font
Dim drs As List(Of DataRow)
Dim pds As List(Of String) = tb.DataTable.GetValues("计算部位",tb.Filter)
Dim md As New prt.RenderText
md.Text = ApplicationTitle.split(".")(0)
md.Style.Font = New Font("宋体", 16, FontStyle.Bold)
md.Style.TextAlignHorz = prt.AlignHorzEnum.Center
md.Style.Spacing.Bottom = 3
Doc.body.Children.Add(md)
For c As Integer = 0 To ColNames.count - 1 '生成列标题
rt.Cells(0,c).Text = ColNames(c)
rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth
Next
For Each pd As String In pds '分产品打印
If tb.Filter > "" Then
drs = tb.DataTable.Select("计算部位 = '" & pd & "' And " & tb.Filter)
Else
drs = tb.DataTable.Select("计算部位 = '" & pd & "'" )
End If
For Each dr As DataRow In drs '逐行打印此产品的订单
cnt = rt.Rows.Count
For c As Integer = 0 To tb.Cols.Count - 1
rt.Cells(cnt, c).Text = dr(tb.Cols(c).Name)
Next
Next
cnt = rt.Rows.Count
rt.Cells(cnt, 0).Text = "小计 " & pd '打印产品的小计
rt.Cells(cnt,8).Text = tb.compute("Sum(重量t)", "计算部位 = '" & pd & "'")
rt.Cells(cnt,9).Text = tb.compute("Sum(油漆面积㎡)", "计算部位 = '" & pd & "'")
Next
cnt = rt.Rows.Count
rt.Cells(cnt, 0).Text = "合计 " '打印合计
rt.Cells(cnt, 8).Text = tb.compute("Sum(重量t)")
rt.Cells(cnt, 9).Text = tb.compute("Sum(油漆面积㎡)")
rt.Cols.Insert(0) '在左边插入一列,用于打印行号
rt.Cols(0).Width = 10 '设置行号列的宽度
For i As Integer = 1 To rt.Rows.Count - 1
rt.Cells(i,0).text = i '逐行写入行号
Next
doc.Body.Children.Add(rt)
doc.PageSetting.Landscape = True '横向打印
doc.Preview()
加好友 
发短信
Post By：2020/11/14 22:44:00 [只看该作者]
