Dear Ronal,
Kalau mau buat rata kanan saat cetak struk, maka kita menambahkan tanda
space di depan angka-angka tersebut. Buat saja function untuk menconvert
dari angka menjadi string sekaligus menambah tanda space di depan string
tersebut.
Misalnya function seperti berikut
function RataKanan(angka as currency, panjangdigit as integer) as string
dim temp as string
dim jumlahspace as integer
temp = cstr(angka)
jumlahspace = panjangdigit - len(temp)
if jumlahspace > 0 then
RataKanan = space(jumlahspace) & temp
else
RataKanan = temp
end if
end function
NB : Code di atas belum dicoba running.
Met' mencoba...
Ronal Baharuddin Hutagaol wrote:
>
> 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
>
