请教如何消取打印模板窗口中表体没内容,但预览多出一页页眉页脚。
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rx As New prt.RenderTable
Dim rj As New prt.RenderTable
rx.Cells(0,0).Text = "第[PageNo]页,共[PageCount]页"
rj.Cells(0,0).Text = "打印时间:" & Date.Now()
rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.right
rj.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Style.FontSize = 11 '字体大小为8磅
rj.Style.FontSize = 11 '字体大小为8磅
Doc.PageHeader = rx '作为页眉使用
Doc.PageFooter = rj
doc.Preview() '预览
[此贴子已经被作者于2017/2/20 15:02:10编辑过]