程式如下:
------------------------------
For k = 1 To 31
   Printer.CurrentX = 6
   Printer.Print Format(k, "###")
   Printer.CurrentX = 18
   Printer.Print Format(A(k), "###,###,###,###");
   Printer.CurrentX = 37
   Printer.Print Format(B(k), "###,###,###,###");
NEXT K
------------------------------------
執行結果:
    1     X,XXX        XXX
    2     X,XXX        X,XXX
    3     XX,XXX        XX,XXXX

請問如何使數值向右對齊?
            Printer.Print Format(C(k), "###,###,###,###")
          Else
            Printer.Print Format(0, "###,###,###,###")
          End If
      Printer.CurrentX = 5
      Printer.Print "--------------------------------------"
   Next k
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()