Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教如何消取预览中表体没内容但多出的页眉页脚


  共有5477人关注过本帖树形打印复制链接

主题：请教如何消取预览中表体没内容但多出的页眉页脚
美女呀，离线，留言给我吧！
意悠心轻
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2017/2/18 17:15:00 [只看该作者]

怎么处理？哦logo图片你看不到。

 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2017/2/18 17:17:00 [只看该作者]

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rx As New prt.RenderTable
Dim rj As New prt.RenderTable
doc.Body.Children.Add(rx) '将表格对象加入到报表中

Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("EP1.BMP") '设置图片
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.Height = "Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
doc.Body.Children.Add(rm) '将图片对象加入报表

rx.Rows(0).Height = 8 '设置第二行的高度,拉开和表格主体的距离.

'设置主标题
rx.Cells(1,0).text = "冲压车间生产日报表"
rx.Cells(1,0).SpanCols = 6 '合并第一行全部单元格,用于显示主标题
rx.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '主标题居中
rx.Cells(1,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置主标题字体
rx.Rows(1).Height = 8 '设置第三行的高度,拉开和表格主体的距离.
''设置副标题
rx.Cells(2,0).Text = "DateTimePicker1"
'副标题内容" '通过左边空格数量来调整副标题位置
rx.Cells(2,0).SpanCols = 6 '合并地二行全部单元格,用于显示副标题
rx.Cells(2,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '副标题内容居中
rx.Rows(2).Height = 8 '设置第四行的高度,拉开和表格主体的距离.

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() '预览
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2017/2/18 17:21:00 [只看该作者]

日期和图片在模板里都已有，logo没有又怎么知哪张图片，日期不要又怎么选哪天！

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/19 10:51:00 [只看该作者]

这句代码去掉。

 

doc.Body.Children.Add(rx) '将表格对象加入到报表中
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2017/2/20 9:23:00 [只看该作者]

加入这段代码后没错误提示了，但图片和日期在第2页的表头没显示。

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rx As New prt.RenderTable
Dim rj As New prt.RenderTable
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("EP1.BMP") '设置图片
rm.Width = 470 '宽度等于页面宽度
rm.Height = 35 '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
rx.Rows(0).Height = 12 '设置第二行的高度,拉开和表格主体的距离.
'设置主标题
rx.Cells(1,0).text = "冲压车间生产日报表"
rx.Cells(1,0).SpanCols = 15 '合并第一行全部单元格,用于显示主标题
rx.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '主标题居中
rx.Cells(1,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置主标题字体
rx.Rows(1).Height = 8 '设置第三行的高度,拉开和表格主体的距离.

''设置副标题
rx.DataBinding.DataSource = BindTables("冲压车间工资表") '将rt绑定到打印模板窗口日期
rx.Cells(2,0).Text = "[Fields!日期.Value]"
'副标题内容" '通过左边空格数量来调整副标题位置
rx.Cells(2,0).SpanCols = 9 '合并地二行全部单元格,用于显示副标题
rx.Cells(2,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '副标题内容居中
rx.Rows(2).Height = 8 '设置第四行的高度,拉开和表格主体的距离.
rx.Cells(2,13).Text = "第[PageNo]页,共[PageCount]页"
rx.Cells(2,13).SpanCols = 2 '合并地二行全部单元格,用于显示副标题
rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Cells(2,13).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磅
Doc.PageHeader = rm
Doc.PageHeader = rx '作为页眉使用
Doc.PageFooter = rj
doc.Preview() '预览
[此贴子已经被作者于2017/2/20 10:21:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/20 9:57:00 [只看该作者]

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()
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2017/2/20 11:19:00 [只看该作者]

图还是没有，表头的日期多了一个打印模板上的显示日期，横向显示变成竖向，我原在打印设置中设好的，但不执行。

 你把这张图试一下插入程序里，我已经把图片路径复制到程序里了，但图片还是不显示。

 


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170220111025.png
图片点击可在新窗口打开查看


 

[此贴子已经被作者于2017/2/21 21:30:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/20 11:26:00 [只看该作者]

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

 

2、把你日期控件的属性，设置允许打印为false
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/2/20 11:33:00 [只看该作者]

加一句
......
nDoc.PageHeader = rx '作为页眉使用
ndoc.PageFooter = rj
ndoc.PageSetting.Landscape = True
ndoc.Preview()
 回到顶部
美女呀，离线，留言给我吧！
意悠心轻
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：512 积分：3358 威望：0 精华：0 注册：2016/1/31 16:04:00 		  发帖心情 Post By：2017/2/20 15:11:00 [只看该作者]

图片还是无法显示，预览无法全显数据，想调整页边距，编了程序，预览无变化！

e.Form.Page.LeftMargin = 5 '设置左边距
e.Form.Page.RightMargin = 3 '设置右边距
e.Form.Page.TopMargin = 5 '设置上边距
e.Form.Page.BottomMargin = 5 '设置下边距
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("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 = 6 '设置第二行的高度,拉开和表格主体的距离.

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

[此贴子已经被作者于2017/2/21 21:30:48编辑过]
 回到顶部
总数 57 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询