----- Original Message -----
Sent: Friday, September 22, 2006 9:28
AM
Subject: Re: [Programmer-VB] Cetak di
Kasir (kertas tetap menggulung)
Nih, coba yang ini.
Private Sub CetakFaktur()
Dim TotalBelanjaan, Items As Double
Open "LPT1:" For
Output As #1
Print #1, Tab(0)
Print #1, "Nama Toko'"
Print #1, "Alamat
Toko"
Print #1,
"------------------------------------"
Print #1, "No. :
"; RTrim(Text1.Text); Tab(19); Format(Now,
"DD/MM/YY-H:M:S")
Print #1, "CST : ";
RTrim(Combo2.Text)
Print #1, " "
RsTempJual.MoveFirst
Items = 0
Do
While Not RsTempJual.EOF
Print
#1, Tab(0); RTrim(RsTempJual.Fields("Description").Value) & " (" &
RTrim(RsTempJual.Fields("kode").Value) &
")"
Print #1, Tab(3);
Kanan(Format(RsTempJual.Fields("Jumlah").Value, "#,#0"), 3); Tab(9); "X";
Tab(11); Kanan(Format(RsTempJual.Fields("hargapcs").Value, "#,#0"), 8);
Tab(25); Kanan(Format(RsTempJual.Fields("HargaItem").Value, "#,#0"),
10)
TotalBelanjaan =
TotalBelanjaan +
RsTempJual.Fields("HargaItem").Value
Items = Items + 1
RsTempJual.MoveNext
Loop
Print #1,
" "
Print #1, "Items : "; Format(Items, "#,#0");
Tab(15); "Total : "; Kanan(Format(TotalBelanjaan, "#,#0"),
10)
Print #1, Tab(15); "Bayar : ";
Kanan(Format(MaskEdBox3.Text, "#,#0"), 10)
Print #1,
Tab(15); "Kembali : "; Kanan(Format(MaskEdBox4.Text, "#,#0"),
10)
Print #1, " "
Print #1, "Note:
Barang yang sudah dibeli tidak"
Print #1,
" dapat ditukar /
dikembalikan."
Print #1, " "
Print
#1, " *** T E R I M A K A S I H
***"
Print #1, " "
Print #1, "
"
Print #1, " "
Print #1, "
"
Print #1, Chr(0)
Close #1
End
Sub
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
