Hai Ronal, coba pake function dibawah ini :
Private Function RataKanan(Data As String, Panjang As Integer) As String
Dim Temp As String
If Len(Data) > Panjang Then
RataKanan = Left(Data, Panjang)
Exit Function
End If
Temp = Data
Do While Len(Temp) <= Panjang
Temp = " " & Temp
Loop
RataKanan = Temp
End Function
"Ronal Baharuddin Hutagaol" <[EMAIL PROTECTED]> on 07/25/2007 11:45:33 AM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: [Programmer-VB] Rata Kanan pada printer Dot-Matriks
Hi VB Mania...
Saya ada permasalahan nih, saat saya membuat program untuk KASIR, saya ada
masalah dengan pencetakan.
Kalau kita mencetak dengan:
Angka1 = 10
Angka2 = 100
Angka3 = 1000
Printer.Print Tab(2); Angka1
Printer.Print Tab(2); Angka2
Printer.Print Tab(2); Angka3
Maka setelah tercetak akan seperti ini:
10
100
1000
Nah, yang menjadi pertanyaan saya dengan metode Printer.Print Tab(2), gimana
caranya agar berapapun TAB akan mencetak rata Kanan dan seperti ini hasilnya
10
100
1000
Terima Kasih untuk bantuannya.
Ronal B Hutagaol
Toni Rahayu
PT. Omedata Electronics
IT Department
Hunting : (62-22) 6030805 Ext 121
Faxs : (62-22) 6030896
Homepage : http://toni.rahayu.tripod.com
