IndeksBSI-PCCalendarFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 masalah saat print out struck

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
edhu
Pendatang Baru
Pendatang Baru


Jumlah posting : 1
Age : 25
Registration date : 22.02.12

PostSubyek: masalah saat print out struck   2012-02-22, 03:22

kok aneh sih ini
pas di preview ada data barang'y



tapi pas di coba print data barang'y ga ada


ini listing print'y
kira" yang salah dimana

Sub cetakprinter()
Dim no As Single
Printer.Font = "courier new"
Printer.FontSize = 9
Printer.ForeColor = black
Printer.Print
Printer.Print
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print Tab(40); "Restaurant Kolecer"
Printer.Print Tab(33); "KP. Cibalung Kec. Cijeruk, Bogor"
Printer.Print Tab(30); "Telp (0251) 8211 711 / (021) 7721 8051"
Printer.Print Tab(2); "Nomor Nota :"; Frmtransaksi.lblnotrans
Printer.Print Tab(2); "Tanggal :"; Frmtransaksi.lbltgl.Caption
Printer.Print Tab(2); "Jam :"; Frmtransaksi.lbljam
Printer.Print Tab(2); "Kode Kasir :"; FrmLogin.txtnmkasir.Text
Printer.Print Tab(2); "Meja :"; Frmtransaksi.txtmeja.Text
Printer.Print "==============================================================================================="
Printer.Print Tab(2); "NO Kode Nama Satuan Harga Jumlah Subtotal"
'12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345'
' 1 2 3 4 5 6 7 8 9 '
Printer.Print "==============================================================================================="
no = 0
With Frmtransaksi.dttransaksi
Do While Not .Recordset.EOF
no = no + 1
Printer.Print Tab(1); no; Tab(5); .Recordset!kdbrg; Tab(15); .Recordset!nmbrg; Tab(38); .Recordset!satuan; Tab(50); Format(.Recordset!harga, "###,###,###"); Tab(60); .Recordset!jumlah; Tab(69); Format(.Recordset!subtotal, "##,###,###")
.Recordset.MoveNext
Loop
End With
Printer.Print "==============================================================================================="
Printer.Print Tab(65); "TOTAL BAYAR Rp "; Format(Frmtransaksi.txtgrandtotal, "##,###,###")
Printer.Print Tab(65); "BAYAR Rp "; Format(Frmtransaksi.txtbayar, "##,###,###")
Printer.Print Tab(65); "KEMBALI Rp "; Format(Frmtransaksi.txtkembali, "##,###,###")
Printer.Print
Printer.Print Tab(24); ".........Terimakasih Atas Kunjungannya........."
Printer.Print Tab(29); " .........Hatur Nuhun........."
Printer.Print
Printer.Print
Printer.Print
Printer.EndDoc
End Sub
Kembali Ke Atas Go down
Lihat profil user
 
masalah saat print out struck
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
 :: Programming :: Pemrograman Visual :: Visual Basic-
Navigasi: