主题：请教：1、如何让打印有标题 2、打印预览出错，打印预览和统计显示不一样

请教：1、如何让打印有标题 2、打印预览出错，打印预览和统计显示不一样

Dim dt As DataTable

Dim dt1 As WinForm.DateTimePicker

Dim dt2 As WinForm.DateTimePicker

dt1 = e.Form.Controls("StartDate")

dt2 = e.Form.Controls("EndDate")

If e.Form.Controls("StartDate").Value = Nothing Or e.Form.Controls("EndDate").Value = Nothing Then

    Return

End If

Dim g As New CrossTableBuilder("统计表1",DataTables("企业每月纳税情况"))

g.Filter ="[日期] >= #" & dt1.Value & "# And [日期] <= #" & dt2.Value & "#"

g.HGroups.AddDef("中文简称") '添加客户列用于水平分组

g.Totals.AddDef("增值税_收入") '添加数量列用于统计

g.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组

g.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组,按月分组

g.HorizontalTotal = True '水平汇总

dt=g.Build '生成统计表

Dim doc As New PrintDoc

Dim rt As New prt.RenderTable

Dim Count As Integer = 0

For Each Col As DataCol In Dt.DataCols

    rt.Cells(0,Count).Text = Col.Name

    For r As Integer = 0 To dt.DataRows.Count - 1

        rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)

    Next 

    Count = Count + 1

Next

rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) 

rt.CellStyle.Spacing.All = 1

rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center 

doc.Body.Children.Add(rt)

doc.Preview()