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

把你改过后的项目和logo图片一起上传上来

关闭预览窗口就弹出空白的预览窗口了。

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

 

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)

        Dim nrt = c.clone
        nrt.height = 0
        ra_2.Children.Add(nrt)
        flag = True
    End If
Next
ra_3.Style.Padding.All = 0
ra_3.Style.Spacing.All = 0
ndoc.Body.Children.Add(ra_3)

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.cells(0,0).RenderObject = rm
rx.cells(0,0).SpanCols = 13
'设置主标题
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()

谢谢，logo显示了，我有另一个问题要请教，员工变动比较大，员工表上有很多人已经离职了，我想在员工表上添加一列在职状况，分别有在职、离职选项，冲压车间工资表上的姓名目录树能否根据员工表上的在职状况只显示在职姓名？

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

 

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

谢谢，安你的方法我在目录树里添加条件，成功筛选，目录树只显示在职人员名字了。

姓名列没有了启用输入助手

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

 

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

 

   谢谢，这个章节我看过，一下子想不起这功能了，发上来后想起可以编程实现，不用问你了。

我想在姓名列做一个输入关键字能自动筛选出符合关键字的在职员工姓名，程序我编了，应该是条件语句编写错误出了问题，请教如何更正。