- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- ★老爹,专业报表套打piao据问题有结果了吗? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1728)
-- 发布时间：2009/2/4 8:15:00
-- ★老爹,专业报表套打piao据问题有结果了吗?
我的套打代码如下:
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编辑过]
-- 发布时间：2009/2/4 9:29:00
--
有，是print方法
-- 发布时间：2009/2/4 9:43:00
--
doc.print()
[此贴子已经被作者于2009-2-4 10:05:25编辑过]
-- 发布时间：2009/2/4 9:46:00
--
..........................
[此贴子已经被作者于2009-2-4 16:20:14编辑过]
-- 发布时间：2009/2/4 9:57:00
--
我看看
-- 发布时间：2009/2/4 9:59:00
--
你明白我的意思吗?
就是上面第二张图无论设置横向纵向打出来都是横向的...
此主题相关图片如下：20090204.jpg[此贴子已经被作者于2009-2-4 9:59:22编辑过]
-- 发布时间：2009/2/4 10:07:00
--
我明白
-- 发布时间：2009/2/4 10:10:00
--
我的电脑没有安装打印机，还不好测试。
-- 发布时间：2009/2/4 10:20:00
--
我倒什么时候增加一个类似易表的以票据扫描图为基准设置报表的功能?
[此贴子已经被作者于2009-2-4 16:27:04编辑过]