Struk atau Print Laporan untuk VB 6.0

Struk atau hasil data yang ingin di print melalui VB 6.0 sangatlah penting menurut saya. Apa lagi program yang kita bikin banyak melakukan transaksi, seperti penjualan. Disini saya akan mencoba berbagi kepada teman - teman yang masih tahap belajar sama seperti saya bagaimana cara membuat tampilan seperti diatas. Kamu bisa Copy-Paste coding di bawah ini :

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 :

Yang harus kamu ingat, sesuaikan yang Code warna biru diatas dengan Name Form kamu dan untuk Code warna merah sesuaikan dengan Name Label, Combo, DTPicker, Dll sesuai dengan Data Form kamu. Sedangkan yang berwarna Coklat pada Code diatas ganti sesuaikan dengan Nama Command yang kamu gunakan. Selamat Mencoba teman - teman...