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

这句代码去掉。

doc.Body.Children.Add(rx) '将表格对象加入到报表中

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
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
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("d:\test.jpg") '设置图片
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
rx.Rows(0).Height = 35 '设置第二行的高度,拉开和表格主体的距离.
rx.cells(0,0).RenderObject = rm
rx.cells(0,0).SpanCols = 3
'设置主标题
rx.Cells(1,0).text = "冲压车间生产日报表"
rx.Cells(1,0).SpanCols = 3 '合并第一行全部单元格,用于显示主标题
rx.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '主标题居中
rx.Cells(1,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置主标题字体
rx.Rows(1).Height = 18 '设置第三行的高度,拉开和表格主体的距离.

''设置副标题
rx.Cells(2,0).Text = e.Form.Controls("DateTimePicker1").text
'副标题内容" '通过左边空格数量来调整副标题位置
rx.Cells(2,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '副标题内容居中
rx.Rows(2).Height = 22 '设置第四行的高度,拉开和表格主体的距离.
rx.Cells(2,2).Text = "第[PageNo]页,共[PageCount]页"
rx.Cells(2,2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Cells(2,2).Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置主标题字体
rj.Cells(0,0).Text = "打印时间:" & Date.Now()
rj.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Style.FontSize = 8 '字体大小为8磅
rj.Style.FontSize = 8 '字体大小为8磅

nDoc.PageHeader = rx '作为页眉使用
ndoc.PageFooter = rj

ndoc.Preview()

1、图片的路径改成你自己的图片；

2、把你日期控件的属性，设置允许打印为false

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

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

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

红色代码，改成你图片的路径就行啊

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()
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
        Dim t = c.clone
        t.y = 0
        ra_3.Children.Add(t)

''设置副标题
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()

 你姓名的目录树在哪里？怎么生成的？

 你加上条件不就行了 【在职情况 = '在职'】

 目录树，是没有输入助手的。

 如果你需要查找，参考 http://www.foxtable.com/webhelp/scr/2961.htm