专家坐堂-求支piao打印人民币符号的处理方法Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

元位带了一个0，在用专业报表打印的时候可以通过条件判断将个位的0去掉，但0前面的那个人民币符号还是会在十位上出现：这个人民币符号是系统自动出来的，在代码中未涉及。

If prt("打印付款信息") = True Then

Dim fkhm As New prt.RenderText \'支票付款行名

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 \'支票付款行名

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)