设计支piao打印的时候，如果金额小于1元的时候打印出来效果是这样的：
此主题相关图片如下：qq图片20170412154456.png
元位带了一个0，在用专业报表打印的时候可以通过条件判断将个位的0去掉，但0前面的那个人民币符号还是会在十位上出现：这个人民币符号是系统自动出来的，在代码中未涉及。
此主题相关图片如下：qq截图20170412154222.jpg
求解决方法
If prt("打印付款信息") = True Then
Dim fkhm As New prt.RenderText '支piao付款行名
fkhm.Text = r("付款行")
fkhm.X = val(prt("正_付款行_X")) + pyz
fkhm.y = val(prt("正_付款行_Y")) + pys
doc.body.Children.Add(fkhm)
Dim fkhzh As New prt.RenderText '支piao付款行名
fkhzh.Text = r("付款行账号")
fkhzh.X = val(prt("正_付款账号_X")) + pyz
fkhzh.y = val(prt("正_付款账号_Y")) + pys
doc.body.Children.Add(fkhzh)
End If
'-----------------------------------------------
Dim je As New prt.RenderText '大写金额
je.Style.Font = New Font("宋体", 12)
Dim dxje_1 As String = CUMoney(r("金额"))
If r("金额") <1 Then
je.Text =dxje_1.Remove(0,2) '金额小于一元则打印去掉零元
Else
je.Text =dxje_1
End If
je.X = val(prt("正_金额_X")) + pyz
je.y = val(prt("正_金额_Y")) + pys
doc.body.Children.Add(je)
加好友 
发短信
Post By：2017/4/12 15:49:00 [显示全部帖子]
