水晶報表:列印支票金額12/12

要用水晶報表套印支票,其中小寫金額要分別對位
用VB語法寫公式:
dim amt,pamt,ss as string
amt=cstr({命令.amt})
amt=replace(amt,",","")
amt=replace(amt,".","")
dim i,t as number
t=len(amt)
pamt="￥  "
ss=""
for i=1 to t
    ss=mid(amt,i,1)
    pamt=pamt+ss
if i<t then pamt=pamt+space(2)
next
formula =pamt
字體選用10#Nina,用其他紙張測試似乎可以,待通過客戶列印看結果