Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共9 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:★老爹,专业报表套打piao据问题有结果了吗?

1楼
菜鸟foxtable 发表于:2009/2/4 8:15:00
我的套打代码如下:

Dim doc As New PrintDoc
Dim rx As prt.RenderText
doc.PageSetting.Landscape = false
doc.PageSetting.PaperKind = 0
doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
Dim x As Integer = tables("打印参数")(0)("X参数")
Dim y As Integer = tables("打印参数")(0)("Y参数")
Dim CurRow As Row = Tables("住院收费").Current

rx = new prt.RenderText
rx.Text = CurRow("住院号")
rx.x = 25 + x
rx.y = 17 + y
doc.body.Children.Add(rx)

Dim d As date = CurRow("结账日期")
rx = new prt.RenderText
rx.Text = d.Year
rx.x = 67 + x
rx.y = 17 + y
doc.body.Children.Add(rx)


...............中间省略..


rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(m,5))
rx.x = 45 + x
rx.y = 74 + y
doc.body.Children.Add(rx)

Doc.Preview()


打印预览里正常显示纸张是纵向的,但打印出来时却变成了横向....


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

图片点击可在新窗口打开查看此主题相关图片如下:002.jpg
图片点击可在新窗口打开查看
上面第二张图无论设置横向纵向打出来都是横向的...

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

另外,当报表代码如下时,会自动把整体版面缩小打印.....并不是自己测量出来的位置,全部乱套....并非所见即所得....
Dim doc As New PrintDoc
Dim rx As prt.RenderText
doc.PageSetting.Landscape = true
doc.PageSetting.PaperKind = 0
doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0
[此贴子已经被作者于2009-2-4 19:41:41编辑过]
2楼
狐狸爸爸 发表于:2009/2/4 9:29:00
有,是print方法
3楼
菜鸟foxtable 发表于:2009/2/4 9:43:00

doc.print()

[此贴子已经被作者于2009-2-4 10:05:25编辑过]
4楼
菜鸟foxtable 发表于:2009/2/4 9:46:00
..........................
[此贴子已经被作者于2009-2-4 16:20:14编辑过]
5楼
狐狸爸爸 发表于:2009/2/4 9:57:00
我看看
6楼
菜鸟foxtable 发表于:2009/2/4 9:59:00
你明白我的意思吗?
就是上面第二张图无论设置横向纵向打出来都是横向的...

图片点击可在新窗口打开查看此主题相关图片如下:20090204.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-2-4 9:59:22编辑过]
7楼
狐狸爸爸 发表于:2009/2/4 10:07:00
我明白
8楼
狐狸爸爸 发表于:2009/2/4 10:10:00
我的电脑没有安装打印机,还不好测试。
9楼
菜鸟foxtable 发表于:2009/2/4 10:20:00
图片点击可在新窗口打开查看我倒

什么时候增加一个类似易表的以piao据扫描图为基准设置报表的功能?
[此贴子已经被作者于2009-2-4 16:27:04编辑过]
共9 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.