
Private Sub CmdCetakPutraQincay_Click()
With frmGajiPutraQincay
Printer.FontBold = True
Printer.FontSize = 10
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(55); "GAJI KARYAWAN"
Printer.FontBold = True
Printer.Print
Printer.Print Tab(35); "-----------------------------------------------------------------------------"
Printer.FontBold = False
Printer.FontUnderline = True
Printer.Print Tab(37); "Struk Gaji"
Printer.FontUnderline = False
Printer.Print Tab(37); "-----------------------------------------------------------------------------"
Printer.Print
Printer.FontBold = False
Printer.Print Tab(37); "No STruk"; Tab(55); ":"; Tab(57); .TxtKdGajiPutraqincay
Printer.Print Tab(37); "Kode Pegawai"; Tab(55); ":"; Tab(57); .CmbKdPegawaiPutraQincay
Printer.Print Tab(37); "Tanggal"; Tab(55); ":"; Tab(57); .DTTanggalPutraQincay
Printer.Print Tab(37); "Gaji Pokok"; Tab(55); ":"; Tab(57); .TxtGapokPutraQincay
Printer.Print Tab(37); "Bonus"; Tab(55); ":"; Tab(57); .TxtBonusPutraQincay
Printer.Print Tab(37); "Total"; Tab(55); ":"; Tab(57); .TxtTotalPutraQincay
Printer.Print
Printer.Print Tab(37); "-----------------------------------------------------------------------------"
Printer.Print
Printer.Print Tab(82); "Tertanda"
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(80); "_____________"
Printer.FontBold = False
Printer.EndDoc
End With
End Sub
Sudah di Copy-Paste belum? kalau sudah, coba kamu jalankan. Pasti akan terjadi error... Hehehe... Sekarang saya anggap kamu sudah mempunyai tampilan Form yang sudah jadi. Misalnya tampilan Form dibawah ini :

makasih banget ka, tugas saya kebantu banget..
ReplyDeleteSama-sama desiana :-)
ReplyDeletekak klo mau di tampilin dulu baru dicetak gmn.
ReplyDeletesoalnya listing kk lsg di cetak.
mohon bimbingannya. hehehe
blz ke email bs gk kak ?
faris.perdana@yahoo.com
wduh... mav nich baru blz, bru lht komennya.. hehe... klw cuma untuk tampilan doank kmu bkin aj satu form lagi... Cthnya : frmNotaSewa. udah itu, kamu hapus printer n ganti dengan nama form yang udh kamu bikin tadi. kmu coba aj dulu y... selamat mencoba..
ReplyDeletekok gak jalan ya pas di print ,pada printer muncul status spooling
ReplyDeletegan udah jalan, tapi pas di print, printernya tidak berhenti di akhir text printer malah terus aja jalan kenapa ya bos
ReplyDelete