Terima kasih atas bantuan dari rekan2 semuanya. Mungkin yang diberikan temen2 dengan font standar yang ada, dan setelah mencoba beberapa contoh dari temen2, sebenernya (saya minta maaf ya), belum sempurna rata kanannya. Lalu puter2 otak akhirnya dapat metode yang baru dan ini saya bagikan buat rekan2 semua
Dim Angk as Currency Dim K as Integer Angk=10000 K=10-Len(format(Angk,"#,##0")) '-------- 10 merupakan format 10 digit yang saya harapkan Printer.Print Tab(2+K); format(Angk,"#,##0") Setelah saya print laporan pada printer saya dengan lebih dari 100 data (digit berbeda-beda) maka sukses hasilnya rata kanan Terima Kasih atas pencerahaannya Ronal B Hutagaol ----- Original Message ----- From: Eet-Milis To: [email protected] Sent: Friday, July 27, 2007 9:26 AM Subject: Re: [Programmer-VB] Rata Kanan pada printer Dot-Matriks Bung RBH, coba ini Printer.Print Tab(2); right(" "+format(angka1,"##,###,##0"),10) E.T. > > > ----- Original Message ----- > *From:* Ronal Baharuddin Hutagaol <mailto:[EMAIL PROTECTED]> > *To:* [email protected] > <mailto:[email protected]> > *Sent:* Wednesday, July 25, 2007 6:45 PM > *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 > > ---------------------------------------------------------- >
