Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]专业报表能否竖向打印


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

主题：[求助]专业报表能否竖向打印
帅哥哟，离线，有人找我吗？
天一生水
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00 		[求助]专业报表能否竖向打印  发帖心情 Post By：2018/10/27 13:53:00 [只看该作者]

  • StackingRulesEnum中的BlockTopToBottom 设置的效果不是下面这样的，怎样设置？
  • 谢谢！


  • 图片点击可在新窗口打开查看此主题相关图片如下：image 4.jpg
    图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有这种设置。可以利用表格宽度让文字自动换行

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Rows(0).Height = 150
rt.Cols(0).Width= 30
rt.Cols(1).Width= 100
''rt.Cells(0, 0).Text = "中建五局"
Dim ra As prt.RenderArea  = rt.Cells(0,0).Area
ra.Style.Font = new Font("宋体",80)
Dim rx = New prt.RenderText '创建一个文本
rx.Text = "中建五局"
ra.Children.Add(rx) '
doc.Preview() 
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2018/10/29 11:39:00 [只看该作者]

我改成在窗口预览，但没显示出来，请老师帮助看一下！

谢谢！

 比如，用A4纸竖向打印3个记录：

 

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 210 '纸张宽度为100毫米
doc.PageSetting.Height = 297 '纸张高度为120毫米
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距

With Tables("席签打印_table1")
    For Each Currow As Row In .GetCheckedRows
       
        Dim rep As New prt.RenderEmpty '定义一个新的空对象
        rep.BreakBefore = prt.BreakEnum.Page '打印前换页
        doc.Body.Children.Add(rep) '加入到报表中
       
        Dim rt As New prt.RenderTable() '定义一个表格对象
        Dim rx As prt.RenderText '定义一个文本对象

        'rt.Style.GridLines.All = New prt.Linedef '设置网格线
        rt.Rows(0).Height = 297
        rt.Cols(0).Width= 99
        rt.Cols(1).Width= 99
        rt.Cols(2).Width= 99
       
        Dim ra As New prt.RenderArea  '背景设置
        ra.Width = "Parent.Width" '宽度等于页面宽度
        ra.Height = "Parent.Height" '高度等于页面高度
        ra.Style.BackColor = Color.Pink
       
        rx = new prt.RenderText
        ra = rt.Cells(0,0).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        ra.Children.Add(rx)
       
        rx = new prt.RenderText
        ra = rt.Cells(0,1).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        ra.Children.Add(rx)
       
        rx = new prt.RenderText
        ra = rt.Cells(0,2).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        ra.Children.Add(rx)
       
        doc.body.Children.Add(ra)
    Next
End With


_MyDoc = Doc
_MyRDL.Document = _MyDoc
Dim p As WinForm.Panel = e.Form.controls("Panel1")
If p.basecontrol.controls.count = 0 Then
    _MyRDL.Dock = 5
    p.BaseControl.Controls.Add(_MyRDL)
    _MyRDL.Toolbars.File.Visible = False
End If

_MyDoc.Generate()  '这句替代 doc.Preview() '预览

[此贴子已经被作者于2018/10/29 11:59:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/29 12:56:00 [只看该作者]

实例发上来测试，说明要做到的效果。

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


加好友 发短信
等级：五尾狐 帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2018/10/29 14:08:00 [只看该作者]

请老师看实例：

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:2018-10-29测试专业报表.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/29 14:23:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 210 '纸张宽度为100毫米
doc.PageSetting.Height = 297 '纸张高度为120毫米
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距

With Tables("席签打印_table1")
    For Each Currow As Row In .GetCheckedRows
       
        Dim rep As New prt.RenderEmpty '定义一个新的空对象
        rep.BreakBefore = prt.BreakEnum.Page '打印前换页
        doc.Body.Children.Add(rep) '加入到报表中
       
        Dim rt As New prt.RenderTable() '定义一个表格对象
        Dim rx As prt.RenderText '定义一个文本对象

        rt.Style.GridLines.All = New prt.Linedef '设置网格线
        rt.Rows(0).Height = 297
        rt.Cols(0).Width= 99
        rt.Cols(1).Width= 99
        rt.Cols(2).Width= 99
       
        Dim ra As New prt.RenderArea  '背景设置
        ra.Width = "Parent.Width" '宽度等于页面宽度
        ra.Height = "Parent.Height" '高度等于页面高度
        ra.Style.BackColor = Color.Pink
       
        rx = new prt.RenderText
        ra = rt.Cells(0,0).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        ra.Children.Add(rx)
       
        rx = new prt.RenderText
        ra = rt.Cells(0,1).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        ra.Children.Add(rx)
       
        rx = new prt.RenderText
        ra = rt.Cells(0,2).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        ra.Children.Add(rx)
       
        doc.body.Children.Add(rt)
    Next
End With


_MyDoc = Doc
_MyRDL.Document = _MyDoc
Dim p As WinForm.Panel = e.Form.controls("Panel1")
If p.basecontrol.controls.count = 0 Then
    _MyRDL.Dock = 5
    p.BaseControl.Controls.Add(_MyRDL)
    _MyRDL.Toolbars.File.Visible = False
End If

_MyDoc.Generate()  '这句替代 doc.Preview() '预览
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2018/10/29 19:35:00 [只看该作者]

谢谢甜老师！
可以预览了，但是应该一张纸打三条记录，现在每条记录打印了一张。
是不是要遍历一下？请老师再帮一下。


图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/29 20:09:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 210 '纸张宽度为100毫米
doc.PageSetting.Height = 297 '纸张高度为120毫米
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Dim CurRow As Row
With Tables("席签打印_table1")
    Dim rs As List(of Row)  = .GetCheckedRows
    Dim ra As prt.RenderArea  '背景设置
    For i As Integer = 0 To rs.Count - 1 Step 3
        
        Dim rep As New prt.RenderEmpty '定义一个新的空对象
        rep.BreakBefore = prt.BreakEnum.Page '打印前换页
        doc.Body.Children.Add(rep) '加入到报表中
        
        Dim rt As New prt.RenderTable() '定义一个表格对象
        Dim rx As prt.RenderText '定义一个文本对象
        
        rt.Style.GridLines.All = New prt.Linedef '设置网格线
        rt.Rows(0).Height = 297
        rt.Cols(0).Width= 99
        rt.Cols(1).Width= 99
        rt.Cols(2).Width= 99
        
        Dim raa As new prt.RenderArea  '背景设置
        raa.Width = "Parent.Width" '宽度等于页面宽度
        raa.Height = "Parent.Height" '高度等于页面高度
        raa.Style.BackColor = Color.Pink
        raa.Children.Add(rt)
        
        CurRow = rs(i)
        rx = new prt.RenderText
        ra = rt.Cells(0,0).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        ra.Children.Add(rx)
        If i+1 < rs.Count
            CurRow = rs(i+1)
            rx = new prt.RenderText
            ra = rt.Cells(0,1).Area
            ra.Style.Font = new Font("华文新魏",160)
            rx.Text = CurRow("姓名")
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
            ra.Children.Add(rx)
        End If
        
        If i+2 < rs.Count
            CurRow = rs(i+2)
            rx = new prt.RenderText
            ra = rt.Cells(0,2).Area
            ra.Style.Font = new Font("华文新魏",160)
            rx.Text = CurRow("姓名")
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
            ra.Children.Add(rx)
        End If
        doc.body.Children.Add(raa)
    Next
End With
 回到顶部
帅哥哟，离线，有人找我吗？
天一生水
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1137 积分：11224 威望：0 精华：0 注册：2017/9/26 16:30:00 		  发帖心情 Post By：2019/3/15 12:20:00 [只看该作者]

老师好！

楼上的代码我加入垂直居中，为什么没起作用？

 

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 210 '纸张宽度为100毫米
doc.PageSetting.Height = 297 '纸张高度为120毫米
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Dim CurRow As Row
With Tables("席签打印_table1")
    Dim rs As List(of Row)  = .GetCheckedRows
    Dim ra As prt.RenderArea  '背景设置
    For i As Integer = 0 To rs.Count - 1 Step 3
        
        Dim rep As New prt.RenderEmpty '定义一个新的空对象
        rep.BreakBefore = prt.BreakEnum.Page '打印前换页
        doc.Body.Children.Add(rep) '加入到报表中
        
        Dim rt As New prt.RenderTable() '定义一个表格对象
        Dim rx As prt.RenderText '定义一个文本对象
        
        rt.Style.GridLines.All = New prt.Linedef '设置网格线
        rt.Rows(0).Height = 297
        rt.Cols(0).Width= 99
        rt.Cols(1).Width= 99
        rt.Cols(2).Width= 99
        
        Dim raa As new prt.RenderArea  '背景设置
        raa.Width = "Parent.Width" '宽度等于页面宽度
        raa.Height = "Parent.Height" '高度等于页面高度
        raa.Style.BackColor = Color.Pink
        raa.Children.Add(rt)
        
        CurRow = rs(i)
        rx = new prt.RenderText
        ra = rt.Cells(0,0).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
        rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
        ra.Children.Add(rx)
        If i+1 < rs.Count
            CurRow = rs(i+1)
            rx = new prt.RenderText
            ra = rt.Cells(0,1).Area
            ra.Style.Font = new Font("华文新魏",160)
            rx.Text = CurRow("姓名")
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
            rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
            ra.Children.Add(rx)
        End If
        
        If i+2 < rs.Count
            CurRow = rs(i+2)
            rx = new prt.RenderText
            ra = rt.Cells(0,2).Area
            ra.Style.Font = new Font("华文新魏",160)
            rx.Text = CurRow("姓名")
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
            rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
            ra.Children.Add(rx)
        End If
        doc.body.Children.Add(raa)
    Next
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/15 12:55:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 210 '纸张宽度为100毫米
doc.PageSetting.Height = 297 '纸张高度为120毫米
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Dim CurRow As Row
With Tables("席签打印_table1")
    Dim rs As List(of Row)  = .GetCheckedRows
    Dim ra As prt.RenderArea  '背景设置
    For i As Integer = 0 To rs.Count - 1 Step 3
       
        Dim rep As New prt.RenderEmpty '定义一个新的空对象
        rep.BreakBefore = prt.BreakEnum.Page '打印前换页
        doc.Body.Children.Add(rep) '加入到报表中
       
        Dim rt As New prt.RenderTable() '定义一个表格对象
        Dim rx As prt.RenderText '定义一个文本对象
       
        rt.Style.GridLines.All = New prt.Linedef '设置网格线
        rt.Rows(0).Height = 297
        rt.Cols(0).Width= 99
        rt.Cols(1).Width= 99
        rt.Cols(2).Width= 99
       
        Dim raa As new prt.RenderArea  '背景设置
        raa.Width = "Parent.Width" '宽度等于页面宽度
        raa.Height = "Parent.Height" '高度等于页面高度
        raa.Style.BackColor = Color.Pink
        raa.Children.Add(rt)
       
        CurRow = rs(i)
        rx = new prt.RenderText
        ra = rt.Cells(0,0).Area
        ra.Style.Font = new Font("华文新魏",160)
        rx.Text = CurRow("姓名")
        rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
       
        rx.height = "parent.height"
        rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
       
        ra.Children.Add(rx)
        If i+1 < rs.Count
            CurRow = rs(i+1)
            rx = new prt.RenderText
            ra = rt.Cells(0,1).Area
            ra.Style.Font = new Font("华文新魏",160)
            rx.Text = CurRow("姓名")
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
            rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
            rx.height = "parent.height"
            ra.Children.Add(rx)
        End If
       
        If i+2 < rs.Count
            CurRow = rs(i+2)
            rx = new prt.RenderText
            ra = rt.Cells(0,2).Area
            ra.Style.Font = new Font("华文新魏",160)
            rx.Text = CurRow("姓名")
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
            rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
            rx.height = "parent.height"
           
            ra.Children.Add(rx)
        End If
        doc.body.Children.Add(raa)
    Next
End With
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.04883 秒, 5 次数据查询