|
Dim tb As Table = Tables("客户报表_table1")
Dim hd As Integer = tb.HeaderRows
Dim cnt As Integer
rt.Style.Font = tb.Font
tb.CreateReportHeader(rt,True)
For c As Integer = 0 To tb.Cols.Count -1
If tb.Cols(c).Visible Then
rt.Cols(cnt).Width = tb.Cols(c).PrintWidth
If tb.Cols(c).IsNumeric OrElse tb.Cols(c).IsDate Then
rt.Cols(cnt).Style.TextAlignHorz = prt.AlignHorzEnum.Right
End If
For r As Integer = 0 To tb.Rows.Count -1
rt.Cells(r + hd, cnt).Text = tb(r,c)
Next
cnt = cnt + 1
End If
Next
生成了报表，有小计和总计行，但打印的时候没有，如何做？请指教，谢谢！
|
加好友 
发短信
Post By：2014/3/12 9:16:00 [只看该作者]
