求助一个打印问题
我用printer.print summoney.text 来打印发票
打小写可以用
Printer.CurrentX =
Printer.CurrentY =
来调节位置
打大写如何实现,我的窗体中已经有一个文本框显示大写金额了
比如: 809,988.00 捌拾零万玖仟玖佰捌拾捌元零角零分
怎样将这个大写打印到发票上,发票上已经有 拾 万 仟 佰 拾 元 角 分 这样的字样,要将那个大写填入其中,请问应该怎么来填?
另外,行间距是怎么来调节的?
问题点数：0、回复次数：2Top
1 楼xiaoxiaoP（每天都是重新开始）回复于 2005-04-01 12:53:06 得分 0
a拾b万c仟d佰e拾f元g角h分
首先把从a到h代表的各个汉字字符读出来
然后
Printer.FontName = "宋体"
Printer.FontSize = 10 '数值只是例子，实际需调节
Printer.CurrentX = 3200
Printer.CurrentY = 1500
Printer.Print a
Printer.CurrentX = 3200 + 30
Printer.CurrentY = 1500
Printer.Print b
Printer.CurrentX = 3200 + 30*2
Printer.CurrentY = 1500
Printer.Print c
Printer.CurrentX = 3200 + 30*3
Printer.CurrentY = 1500
Printer.Print d
.........
Printer.EndDoc
行距改变Printer.CurrentY 值即可。
Top
2 楼fly70（午后阳光）回复于 2005-04-01 13:42:44 得分 0
谢谢xiaoxiaoP,请再提示一下好吗?
Function Chineseformat(n As Variant)
Dim s As String, sformat As String
Dim i As Integer, c As String
Const sNumber = "零壹贰叁肆伍陆柒捌玖"
s = Format(Int(n * 100))
sformat = ""
For i = Len(s) To 1 Step -1
c = Mid(s, i, 1)
sformat = Mid(sNumber, Val(c) _
+ 1, 1) _
+ sformat
Next
Chineseformat = sformat
End Function
在窗体的文本框里的大写是这样的
txtsumcn.Text = Chineseformat(txtsum)
怎么样来实现数字的拆分,拆成a b c d呢?
Top
