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


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

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

美女呀,离线,留言给我吧!
意悠心轻
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:3358 威望:0 精华:0 注册:2016/1/31 16:04:00
请教如何消取预览中表体没内容但多出的页眉页脚  发帖心情 Post By:2017/2/18 10:55:00 [只看该作者]

  请教如何消取打印模板窗口中表体没内容,但预览多出一页页眉页脚。
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编辑过]

 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

还有一个问题,在冲压车间工资表中有程序让产品名称、生产名称、备注自动分行,在窗行上就不行了,这样打印出来的内容不完整啊,应如何解决?

 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

表体、跟打印设置里设了自动行高也不行,在窗口模板中,预览依然没自动分行。


 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

空行的问题我解决了,自动分行还不行。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

那些内容是多余的?截图说明一下


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

回2楼

日期控件TextChanged事件

Dim Filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 = #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("冲压车间工资表").Filter = Filter '设置筛选条件
    
    Dim t As Table = Tables("冲压车间工资表")
    Dim g As Subtotalgroup
    t.SubtotalGroups.Clear()
    t.GroupAboveData = False
    t.TreeVisible = False
    t.SpillNode = False
    
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "日期"
    g.TotalOn = "姓名,产品名称,生产工序,订单号,生产形式,数量,备注,废品数量,计时时间,,其他"
    g.DateGroup = DateGroupEnum.Day
    't.SubtotalGroups.Add(g)
    
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "日期"
    g.TotalOn = "姓名,产品名称,生产工序,订单号,生产形式,数量,备注,废品数量,计时时间,,其他"
    g.DateGroup = DateGroupEnum.Month
    
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "*"
    g.TotalOn = "姓名,产品名称,生产工序,订单号,生产形式,数量,备注,废品数量,计时时间,,其他"
    't.SubtotalGroups.Add(g)
    t.Subtotal()
t.AutoSizeRows
End If

 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看
安你的程序设了,第二页没了表头与日期了! 你用2月11日的分页数预览就看出问题了。
[此贴子已经被作者于2017/2/18 14:30:02编辑过]

 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我把模板上的标题删了,改在预览按钮中写代码,我编了一下多层表头的程序,但第一行的logo图片不知怎么写代码,我用红色标注了。

 

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 dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureBox1")
'rx.Cells(0,0).Filter =
rx.Cells(0,0).SpanCols = 38 '合并第一行全部单元格,用于显示主标题
rx.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '主标题居中

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() '预览

[此贴子已经被作者于2017/2/18 16:50:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/18 16:40:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下:捕获1111.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/2/20 15:06:49编辑过]

 回到顶部
总数 57 1 2 3 4 5 6 下一页