Script Cetak Slip

Private Sub cetak()
Dim i As Integer
Close #1
Open “LPT1″ For Output As #1
‘Open “LPT1:” For Output Access Write As #1
Printer.CurrentX = 0
Printer.CurrentY = 0
‘Printer.Font = 6
Print #1, Chr$(27) + Chr$(15) + ” ” & LAlm ‘Kecil
Print #1, ” NAMA TOKO’”
Print #1, ” ALAMAT TOKO″
Print #1, ” TELP. (0352) 531700″
Print #1, “”
Print #1, “NO KWITANSI:” + nokwitansi; ” “; “Tgl:” + tgl;
Print #1, “”
Print #1, “—————————————–”
Print #1, Tab(1); “Kd Barang”; Tab(11); “Nama Barang”; Tab(24); “Jml”; Tab(28); “Harga”; Tab(36); “Total”;
Print #1, Tab(1); “—————————————–”
jumtot = 0
‘cari_tanggal = InputBox(”Masukan Tanggal Pencarian”, “Tanggal Pencarian”, “18/07/05″)
dbjual.RecordSource = “select * from jual where nokwitansi=’” & nokwitansi.Text & “‘”
dbjual.Refresh
jum = dbjual.Recordset.RecordCount

For i = 1 To jum
‘no = Adodc1.Recordset!nokwitansi
kdbrg = dbjual.Recordset!kodebarang
nabar = Left(dbjual.Recordset!namabarang, 12)
jum = dbjual.Recordset!jumjual
hrg = dbjual.Recordset!harga
tot = dbjual.Recordset!totalharga
tgl = dbjual.Recordset!tgl
user = dbjual.Recordset!kasir
jumtot = Val(jumtot) + Val(tot)
pj = Len(nabar)
‘If pj <= 24 Then

Print #1, kdbrg; Tab(11); nabar; Tab(24); jum; Tab(28); hrg; Tab(36); tot;
‘Else
‘pr1 = Right(nabar, 20)
‘pr2 = Mid(nabar, 21, 15)
‘Print #1, Tab(1); i; Tab(6); pr1; Tab(32); jum; Tab(37); hrg; Tab(47); tot;
‘Print #1, Tab(6); pr2;
‘ End If
Print #1, “”
dbjual.Recordset.MoveNext
Next i
Print #1, Tab(1); “—————————————–”
Print #1, Tab(1); “TOTAL BAYAR = ” + “Rp ” + TOTBAYAR.Text + “,-”
Print #1, Tab(1); “Dibayar = ” + “Rp ” + DIBAYAR.Text + “,-” + “Kembali = ” + “Rp ” + SISA.Text + “,-”
tjam = Time
Print #1, Tab(1); “Kasir : ” + kasir
Print #1, Tab(1); “Terima Kasih Atas Kunjungannya”
dbjual.Refresh
Print #1, “”
Print #1, “”
Print #1, “”
Close #1

End Sub