biar enak bikin fungsi PADR, contoh:
Public Function padr(strstr, nlong) As String
Dim strTemp As String
strTemp = String(nlong, " ")
str2 = "###,###,###,##0.00"
strTemp2 = (Format(strstr, str2))
If nlong < Len(strTemp2) Then
strTemp = String(nlong, "*")
Else
strTemp = String(nlong - Len(strTemp2), " ") & strTemp2
End If
padr = strTemp
End Function
~~~
Thanks/Andre
http://www.talagasoft.com
TalagaSoft Indonesia
--- In [email protected], "jeremy_W" <[EMAIL PROTECTED]> wrote:
>
> mohon dibantu,
> saya punya kasus.. ingin cetak faktur spt dibawah ini :
>
> nama qty total
> -------------------------------------
> Rinso 1 12.000
> Sabun cuci 10 3.000
>
> bagaimana untuk membuat nilai total untuk menjadi rata
> kanan ??
> sehingga hasilnya :
>
> nama qty total
> -------------------------------------
> Rinso 1 12.000
> Sabun cuci 10 3.000
>
> coding yang saya pakai untuk cetak adalah memakai
>
> open lpt1 ...
> Print #1, bla..bla.bla...
> close #1
>
> mohon dibantu untuk solusinya, terima kasih,
>
========================================================================================
> Netkuis kini hadir kembali!
>
> Main, raih poin setinggi-tingginya, dan menangkan hadiahnya dengan
total hadiah sebesar 10 JUTA Rupiah!!
>
> Kami tunggu aksimu di Netkuis EURO. Klik di
http://netkuis.telkom.net/euro
>
=======================================================================================
> Kini telah hadir Protector, layanan keamanan online yang dapat
digunakan langsung saat menjelajahi internet kapan saja dan di mana
saja. Dapatkan secara GRATIS layanan Protector hingga 15 September
2008. Klik ke: http://protector.telkomspeedy.com
>
