Hallo Abdul, Coba pake function ini :
Private Function Kanan(Data As String, Panjang As Integer) As String
Dim Temp As String
If Len(Data) > Panjang Then
Kanan = Left(Data, Panjang)
Exit Function
End If
Temp = Data
Do While Len(Temp) <= Panjang
Temp = " " & Temp
Loop
Kanan = Temp
End Function
Rgds
"abdul_goni_prg" <[EMAIL PROTECTED]> on 12/18/2007 12:31:14 PM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: [Programmer-VB] Print Alignment Di Cetak Printer LX -300
Siapa aja, berikan contoh sintak dong untuk memerintahkan printer lx
300 agar bisa rata kanan, saya bekerja di vb6, Saya dah mencoba harus
sama akhir panjang dari angka dengan pakai space() tapi hasilnya tidak
sesuai yang diharapkan.terima kasih ...
|
Siapa aja, berikan contoh sintak dong untuk memerintahkan printer lx |
att2.eml
Description: Binary data
Toni Rahayu PT. Omedata Electronics IT Department Hunting : (62-22) 6030805 Ext 121 Faxs : (62-22) 6030896 Homepage : http://www.toni-rahayu.co.cc
