Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印标题的问题


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

主题：打印标题的问题
帅哥哟，离线，有人找我吗？
天蝉一线
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		打印标题的问题  发帖心情 Post By：2016/10/25 13:23:00 [只看该作者]

这是我的打印代码：执行后只有第一页有标题和副标题，以后各页就没有标题和副标题了，只有表格内容。我不知道代码怎么改了，麻烦您指导一下
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim rz As New prt.RenderText '定义一个文本对象
'e.Form.Page.PaperKind = 8 '纸张类型改为A4
'e.Form.Page.Width = 250 '纸张宽度为294毫米
'e.Form.Page.Height = 210 '纸张高度为210毫米
'e.Form.Page.Landscape = True '横向打印
e.Form.Page.LeftMargin = 20 '设置左边距
e.Form.Page.RightMargin =20 '设置右边距
e.Form.Page.TopMargin = 10 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
doc = e.Form.GernatePrintDoc()
'加入标题
rx.text = _Userdwmc & "大额资金支出上会提案表" 
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 16 '大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Bottom =3 '和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) '加入到报表中
    Dim rw As New prt.RenderArea
    Dim rn As prt.RenderText
    rw.Width = 250 '宽度等于分栏宽度
    rw.Height = 30 '高度24毫米
    rw.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    rw.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    rw.Style.Spacing.Bottom = 2
  '  ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
    Doc.Body.ChildRen.Add(rw) '将容器加入到报表中 

    rn = New prt.RenderText
    rn.Text = "过会提案编码:"
    rn.X = 2
    rn.Y = 2
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text = jlbh
    rn.X = 25
    rn.Y = 2
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = "过会时间:"
    rn.X = 2
    rn.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = ghsj
    rn.X = 25
    rn.Y = "Prev.Top" '垂直坐标和前一对象相同 
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "过会类型:"
    rn.X = 2
    rn.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = ghlx
    rn.X = 25
    rn.Y = "Prev.Top" '垂直坐标和前一对象相同 
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "会议记录人:"
    rn.X = 2
    rn.Y = "Prev.Bottom + 6" '垂直坐标位于迁移对象之下的2毫米
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = hyjlr
    rn.X = 25
    rn.Y = "Prev.Top" '垂直坐标和前一对象相同 
    rw.Children.Add(rn)

 rn = New prt.RenderText
    rn.Text = "会议主持人:"
    rn.X = 120
    rn.Y = 2
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text = hyzcr
    rn.X = 130
    rn.Y = 2
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "参加会议人员:"
    rn.X = 120
    rn.Y = "Prev.Bottom + 6" 
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text = cjhyry
    rn.X = 145
    rn.Y = "Prev.Top" 
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "列席:"
    rn.X = 120
    rn.Y = "Prev.Bottom + 8" 
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text = lx
    rn.X = 145
    rn.Y = "Prev.Top" 
    rw.Children.Add(rn)

  Dim dt As DataTable
Dim shjg As String = "审核通过"
Dim g As New GroupTableBuilder("统计表1", DataTables("大额资金支出备案登记表"),"审核结果='" & shjg & "'and 过会提案编码 = '" & jlbh & "'")
g.Groups.AddDef("大额资金支付备案编码","大额资金支付备案编码") '根据根据用户账号分组
g.Groups.AddDef("部门名称","申报部门名称") '根据根据用户账号分组
g.Groups.AddDef("用户姓名","填报人") '根据用户姓名分组
g.Groups.AddDef("付款单位账户名称","付款单位账户名称") '根据用户姓名分组
g.Groups.AddDef("收款单位账户名称","收款单位账户名称") '根据用户姓名分组
g.Groups.AddDef("支付性质","支付性质") '根据用户姓名分组
g.Groups.AddDef("支付项目名称和内容","支付项目名称和内容") '根据用户姓名分组
g.Groups.AddDef("支付金额","支付金额") '根据用户姓名分组
g.Groups.AddDef("需要提前支付时间",DateGroupEnum.none,"提前支付时间") '根据用户姓名分组
g.Groups.AddDef("提前支付理由","提前支付理由") '根据用户姓名分组
g.Groups.AddDef("本单位过会时间",DateGroupEnum.none,"本单位过会时间")'根据用户姓名分组
g.FromServer = True
DT=g.build(True)
dt.DataCols("提前支付时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
dt.DataCols("本单位过会时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
Dim rt1 As New prt.RenderTable
Dim Count As Integer = 0
For Each Col As DataCol In Dt.DataCols
    rt1.Cells(0,Count).Text = Col.Name
    For r As Integer = 0 To dt.DataRows.Count - 1
        rt1.Cells(r +1,Count).Text =dt.dataRows(r)(Col.Name)
    Next 
    Count = Count + 1
Next

rt1.Style.Gridlines.All = New prt.Linedef(Color.Gray) 
rt1.CellStyle.Spacing.All = 1
rt1.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center 
doc.Body.Children.Add(rt1)
doc.Preview()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110551 积分：562645 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/25 14:23:00 [只看该作者]


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


加好友 发短信
等级：小狐 帖子：370 积分：3195 威望：0 精华：0 注册：2016/6/16 16:11:00 		  发帖心情 Post By：2016/10/25 14:34:00 [只看该作者]

我看了，还是加不上，麻烦您改一下！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110551 积分：562645 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/25 15:22:00 [只看该作者]

测试不了你的代码，下面代码自己看着改改

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim rz As New prt.RenderText '定义一个文本对象
'e.Form.Page.PaperKind = 8 '纸张类型改为A4
'e.Form.Page.Width = 250 '纸张宽度为294毫米
'e.Form.Page.Height = 210 '纸张高度为210毫米
'e.Form.Page.Landscape = True '横向打印
'e.Form.Page.LeftMargin = 20 '设置左边距
'e.Form.Page.RightMargin =20 '设置右边距
'e.Form.Page.TopMargin = 10 '设置上边距
'e.Form.Page.BottomMargin = 20 '设置下边距
'doc = e.Form.GernatePrintDoc()
'加入标题
doc.Body.Children.Add(rt) '加入到报表中
rt.Style.GridLines.All = New prt.Linedef  '设置网格线
rt.CellStyle.Spacing.All = 1 '内容距离网格线1毫米

rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cells(0,0).text = "大额资金支出上会提案表" 
rt.Cells(0,0).SpanCols = 6 '合并第一行全部单元格,用于显示主标题
rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '主标题居中
rt.Cells(0,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置主标题字体
rt.Rows(0).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第一行的网格线 
'rx.text = "大额资金支出上会提案表" 
'rx.Style.FontBold = True '字体加粗
'rx.Style.FontSize = 16 '大体大小为16磅
'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
'rx.Style.Spacing.Bottom =3 '和下面的对象(表格)距离3毫米

    Dim rw As New prt.RenderArea
    Dim rn As prt.RenderText
    rw.Width = 250 '宽度等于分栏宽度
    rw.Height = 30 '高度24毫米
    rw.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    rw.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
    rw.Style.Spacing.Bottom = 2
  '  ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
    'Doc.Body.ChildRen.Add(rw) '将容器加入到报表中

    rn = New prt.RenderText
    rn.Text = "过会提案编码:"
    rn.X = 2
    rn.Y = 2
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text = "jlbh"
    rn.X = 25
    rn.Y = 2
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = "过会时间:"
    rn.X = 2
    rn.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = "ghsj"
    rn.X = 25
    rn.Y = "Prev.Top" '垂直坐标和前一对象相同
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "过会类型:"
    rn.X = 2
    rn.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = "ghlx"
    rn.X = 25
    rn.Y = "Prev.Top" '垂直坐标和前一对象相同
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "会议记录人:"
    rn.X = 2
    rn.Y = "Prev.Bottom + 6" '垂直坐标位于迁移对象之下的2毫米
    rw.Children.Add(rn)

    rn = New prt.RenderText
    rn.Text = "hyjlr"
    rn.X = 25
    rn.Y = "Prev.Top" '垂直坐标和前一对象相同
    rw.Children.Add(rn)

 rn = New prt.RenderText
    rn.Text = "会议主持人:"
    rn.X = 120
    rn.Y = 2
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text = "hyzcr"
    rn.X = 130
    rn.Y = 2
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "参加会议人员:"
    rn.X = 120
    rn.Y = "Prev.Bottom + 6"
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text = "cjhyry"
    rn.X = 145
    rn.Y = "Prev.Top"
    rw.Children.Add(rn)

rn = New prt.RenderText
    rn.Text = "列席:"
    rn.X = 120
    rn.Y = "Prev.Bottom + 8"
    rw.Children.Add(rn) '添加到容器中

    rn = New prt.RenderText
    rn.Text =" lx"
    rn.X = 145
    rn.Y = "Prev.Top"
    rw.Children.Add(rn)
rt.Cells(1,0).Area .Children.Add (rw)
'rt.Cells(1,1).text = "jlbh"
rt.Cells(1,0).SpanCols = 6 '合并第一行全部单元格,用于显示主标题
rt.Rows(1).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第二行的网格线
rt.Rows(1).Style.Borders.Bottom = New prt.Linedef  '恢复第二行底端的网格线
rt.Rows(1).Height = 30 '设置第二行的高度,拉开和表格主体的距离. 
  Dim dt As DataTable
Dim shjg As String = "审核通过"
rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All  '前四行作为表头
'Dim g As New GroupTableBuilder("统计表1", DataTables("大额资金支出备案登记表"),"审核结果='" & shjg & "'and 过会提案编码 = '" & jlbh & "'")
'g.Groups.AddDef("大额资金支付备案编码","大额资金支付备案编码") '根据根据用户账号分组
'g.Groups.AddDef("部门名称","申报部门名称") '根据根据用户账号分组
'g.Groups.AddDef("用户姓名","填报人") '根据用户姓名分组
'g.Groups.AddDef("付款单位账户名称","付款单位账户名称") '根据用户姓名分组
'g.Groups.AddDef("收款单位账户名称","收款单位账户名称") '根据用户姓名分组
'g.Groups.AddDef("支付性质","支付性质") '根据用户姓名分组
'g.Groups.AddDef("支付项目名称和内容","支付项目名称和内容") '根据用户姓名分组
'g.Groups.AddDef("支付金额","支付金额") '根据用户姓名分组
'g.Groups.AddDef("需要提前支付时间",DateGroupEnum.none,"提前支付时间") '根据用户姓名分组
'g.Groups.AddDef("提前支付理由","提前支付理由") '根据用户姓名分组
'g.Groups.AddDef("本单位过会时间",DateGroupEnum.none,"本单位过会时间")'根据用户姓名分组
'g.FromServer = True
'DT=g.build(True)
'dt.DataCols("提前支付时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
'dt.DataCols("本单位过会时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
'Dim rt1 As New prt.RenderTable
Dim Count As Integer = 0
For i As Integer = 0 To 5
    rt.Cells(2,i).Text = i
    For r As Integer = 2 To 100
        rt.Cells(r +1,i).Text = r
    Next
Next


'doc.Body.Children.Add(rt1)
doc.Preview()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询