- 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=1740)
-- 发布时间：2009/2/5 16:22:00
-- [分享]★专业报表piao据套打实例★感谢老爹指点.
在此感谢老爹百忙中的指点
采用打印机:EPSON LQ300K+
由于专业报表部分函数未完善,存在某些未解决的问题,如进退纸不准确.....但至少已经实现了精确套打...相信老爹已经在全力修正了.
分享同时也参加有奖实例评比.| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:票据套打实例.rar |
发票版式:
此主题相关图片如下：住院发票.jpg
套打预览:
此主题相关图片如下：001.jpg
-- 发布时间：2009/2/5 16:49:00
--
呵呵，欢迎。
晚上更新一下，打印会更好一点。
-- 发布时间：2009/2/5 17:03:00
--
老爹,俺没用你那个方法套打大写金额.....俺用0代替更合理...
dim m as double = curRow("金额")
dim r as string = format(m,"0.00")
dim rr as string = format(m,"000000.00")
rx = new prt.RenderText
rx.Text = r
rx.x = 141 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,0))
rx.x = 100 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,-1))
rx.x = 111 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,-2))
rx.x = 122 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,1))
rx.x = 89 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,2))
rx.x = 78 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,3))
rx.x = 67 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,4))
rx.x = 56 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,5))
rx.x = 45 + x
rx.y = 73 + y
doc.body.Children.Add(rx)
-- 发布时间：2009/2/5 17:11:00
--
慢慢地，你也就会成为狐狸精了
-- 发布时间：2009/2/5 17:14:00
--
俺只能算是稍为老一点的菜鸟....