主题：请教如何消取预览中表体没内容但多出的页眉页脚

 你可以直接设置ndoc的页面信息

http://www.foxtable.com/webhelp/scr/1192.htm

代码写成这样，第一页表头的空白行高太大了，第二页如果显示图片，表头高度又不够，应如何调？

Dim ndoc As new PrintDoc
Dim ra_1 As new prt.RenderArea
Dim ra_2 As new prt.RenderArea
Dim ra_3 As new prt.RenderArea
Dim flag As Boolean = False
Dim rt As New prt.RenderText '定义一个文本对象
ndoc.PageSetting.LeftMargin = 5 '设置左边距
ndoc.PageSetting.RightMargin = 3 '设置右边距
ndoc.PageSetting.TopMargin = 10 '设置上边距
ndoc.PageSetting.BottomMargin = 20 '设置下边距
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
'ndoc.Body.Children.Add(rt) '将文本对象加入到报表
For Each c As object In Doc.Body.Children
    If c.Gettype.name Like "*RenderText*" Then
        If flag = False Then
            ra_1.Children.Add(c.Clone)
            Dim nrt = c.clone
            nrt.height = 0
            ra_2.Children.Add(nrt)
        Else
            ra_2.Children.Add(c.clone)
        End If
    ElseIf c.Gettype.name Like "*RenderTable*" Then
        ra_3.Children.Add(c.Clone)
        Dim nrt = c.clone
        nrt.height = 0
        ra_2.Children.Add(nrt)
        flag = True
    End If
Next
ndoc.Body.Children.Add(ra_1)
ndoc.Body.Children.Add(ra_3)
ndoc.Body.Children.Add(ra_2)

Dim rx As New prt.RenderTable
Dim rj As New prt.RenderTable
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("J:\_\管理项目\冲压车间工资表\捕获000_jpg") '设置图片
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
rx.cells(0,0).RenderObject = rm
rx.cells(0,0).SpanCols = 10
'设置主标题
rx.Cells(1,1).text = "冲压车间生产日报表"
rx.Cells(1,1).SpanCols = 10 '合并第一行全部单元格,用于显示主标题
rx.Cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '主标题居中
rx.Cells(1,1).Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置主标题字体
rx.Rows(1).Height = 8 '设置第二行的高度,拉开和表格主体的距离.

''设置副标题
rx.Cells(2,6).Text = e.Form.Controls("DateTimePicker1").text
rx.Cells(2,6).SpanCols = 2 '合并地二行全部单元格,用于显示副标题
'副标题内容" '通过左边空格数量来调整副标题位置
rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '副标题内容居中
rx.Rows(0).Height = 6 '设置第二行的高度,拉开和表格主体的距离.
rx.Cells(2,11).Text = "第[PageNo]页,共[PageCount]页"
rx.Cells(2,11).SpanCols = 2 '合并地二行全部单元格,用于显示副标题
rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rj.Cells(0,0).Text = "车间主管签名:"
rj.Cells(0,1).Text = "副总审核签名:"
rj.Cells(0,2).Text = "打印时间:" & Date.Now()
rj.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.left
rj.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rj.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Style.FontSize = 11 '字体大小为8磅
rj.Style.FontSize = 11 '字体大小为8磅
nDoc.PageHeader = rx '作为页眉使用
ndoc.PageFooter = rj
ndoc.PageSetting.Landscape = True '横向打印
ndoc.Preview()

你可以不加panel，然后把代码改成 Dim doc As PrintDoc = e.Form.GernatePrintDoc()