Would you like to react to this message? Create an account in a few clicks or log in to continue.


 
IndeksBSI-PCLatest imagesPencarianPendaftaranLogin

 

 masalah saat print out struck

Go down 
PengirimMessage
edhu
Pendatang Baru
Pendatang Baru
edhu


Jumlah posting : 1
Age : 32
Registration date : 22.02.12

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

kok aneh sih ini
pas di preview ada data barang'y
masalah saat print out struck 73164616


tapi pas di coba print data barang'y ga ada
masalah saat print out struck 53098709

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
 
masalah saat print out struck
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» masalah flashdisk???
» apa sih yang dimau oleh cowok or cewek pd saat pacaran???

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