Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表打印问题。。


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

主题:[求助]专业报表打印问题。。

帅哥哟,离线,有人找我吗?
baicaocao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:497 积分:4898 威望:0 精华:0 注册:2012/4/20 8:42:00
[求助]专业报表打印问题。。  发帖心情 Post By:2020/4/6 13:57:00 [显示全部帖子]

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

代码:
'定义表头
            Dim rx As RenderText
            Dim ra As New RenderArea
            rx = New RenderText
            rx.Text = dr!客户代码
            rx.X = 1
            rx.Y = 1
ra.Width = 宽 - 2 '设置标签宽度
            ra.Height = 高 - 4
            ra.SplitHorzBehavior = SplitBehaviorEnum.Never '禁止水平分割
            ra.SplitVertBehavior = SplitBehaviorEnum.Never '禁止垂直分割
            ra.Style.Spacing.Right = 2 '设置标签之间的所有和上下间隔为2毫米
            ra.Style.Spacing.Bottom = 2
            doc.Body.Children.Add(ra)
            ra.Children.Add(rx)
            Dim 客户名称 As New RenderText
            客户名称.Text = hs.查询值("selec t 姓名 from 客户信息 where ID='" & dr!客户ID & "'")
            客户名称.Y = 6
            ra.Children.Add(客户名称)
            Dim 源单编号 As New RenderText
            源单编号.Text = dr!源单编号
            源单编号.Y = 1
            源单编号.X = 150
            ra.Children.Add(源单编号)
            Dim 终审时间 As New RenderText
            终审时间.Text = dr!终审时间
            终审时间.Y = 6
            终审时间.X = 150
            ra.Children.Add(终审时间)
            '开始增加明细内容.
            Dim prs As Integer = 10 '每页20行
            For p As Integer = 0 To tbmx.Rows.Count - 1
                Dim 物料代码 As New RenderText
                物料代码.Y = p * 6 + 16
                物料代码.Text = tbmx.Rows(p)("物料代码")
                ra.Children.Add(物料代码)
                Dim 物料名称 As New RenderText
                物料名称.Y = p * 6 + 16
                物料名称.X = 30
                物料名称.Text = tbmx.Rows(p)("物料名称")
                ra.Children.Add(物料名称)
                Dim 规格型号 As New RenderText
                规格型号.Y = p * 6 + 16
                规格型号.X = 60
                规格型号.Text = tbmx.Rows(p)("规格型号")
                ra.Children.Add(规格型号)
                Dim 单位名称 As New RenderText
                单位名称.Y = p * 6 + 16
                单位名称.X = 120
                单位名称.Text = tbmx.Rows(p)("单位名称")
                ra.Children.Add(单位名称)
                Dim 数量 As New RenderText
                数量.Y = p * 6 + 16
                数量.X = 130
                数量.Text = Format(tbmx.Rows(p)("数量"), "#####")
                ra.Children.Add(数量)
                Dim 单价 As New RenderText
                单价.Y = p * 6 + 16
                单价.X = 140
                单价.Text = Format(tbmx.Rows(p)("单价"), "#.##")
                ra.Children.Add(单价)
                Dim 应付金额 As New RenderText
                应付金额.Y = p * 6 + 16
                应付金额.X = 160
                应付金额.Text = Format(tbmx.Rows(p)("应付金额"), "#.##")
                ra.Children.Add(应付金额)
            Next
            Dim 大写合计 As New RenderText
            大写合计.Y = 50
            大写合计.Text = "大写合计:"
            ra.Children.Add(大写合计)
            Dim 应付大写 As New RenderText
            应付大写.Y = 50
            应付大写.X = 15
            应付大写.Text = Currency.Converter.ConvertToCapsString(tbmx.Compute("sum(应付金额)"))
            ra.Children.Add(应付大写)
            Dim 应付小写 As New RenderText
            应付小写.Y = 50
            应付小写.X = 160
            应付小写.Text = tbmx.Compute("sum(应付金额)")
            ra.Children.Add(应付小写)
            ' doc.Preview()
            doc.PageSetting.Width = 宽 '纸张宽度为100毫米
            doc.PageSetting.Height = 高 '纸张高度为120毫米
            doc.PageSetting.LeftMargin = 左边距
            doc.PageSetting.TopMargin = 上边距
            doc.PageSetting.BottomMargin = 下边距
            doc.PageSetting.RightMargin = 右边距
            doc.PageSetting.Landscape = Vars("纵向")
            doc.AutoRotate = False
            doc.PrinterName = Vars!打印机
            doc.Print()

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


加好友 发短信
等级:一尾狐 帖子:497 积分:4898 威望:0 精华:0 注册:2012/4/20 8:42:00
  发帖心情 Post By:2020/4/6 15:42:00 [显示全部帖子]

 都是已经赋值的。。。。系统应该是xp系统。。

 回到顶部