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