All About VB: Cara Mencetak Database di Form dan di Printer di VB6

Cara Mencetak Database di Form dan di Printer dengan VB6 - Pada pertemuan kali ini Saya ingin membuat sebuah Aplikasi cetak, baik cetak dilayar komputer maupun cetak ke Printer. Kurang lengkap rasanya kalau kita membuat Aplikasi yang menggunakan Database tetapi tidak di lengkapi dengan fitur cetak baik di Form (Print Preview) maupun di Printer.

Fitur untuk untuk mencetak sangat penting dalam sebuah aplikasi penginputan karena berfungsi sebagai arsip yang berbentuk hardcover yang merupakan cerminan dari hasil input itu sendiri, sehingga bisa digunakan sebagai bahan laporan yang berbentuk cetakan di kertas atau sejenisnya.Selain itu juga dilengkapi dengan print view yang berfugsi untuk melihat tampilan hasil cerak versi layar sehingga kalau-kalau ada kesalahan bisa diperbaiki sebelum di cetak ke printer.

Bagi Anda yang penasaran bagaimana cara membuatnya mari perhatikan langkah-langkah berikut dibawah ini :

Cara membuat Versi Cetak di VB6 :

1. Buka 2 Form baru dan tanamkan 2 Commandbutton di Form1, masing untuk Cetak Print Preview dan Cetak Printer.

2. Setelah mendesain Form1 Kemudian Tambahkan Form baru yang kedua (Form2).Untuk Form yang kedua ini biarkan saja kosong. Form kedua ini berfungsi untuk mencetak ke Form versi layar (PrintPreview)

3. Kembali ke Form pertama, buka jendela kode dengan F7 lalu copy-paste kode dibawah ini di bagian General-Declaration :

Dim nom, sw As Integer

Dim garis, garistengah As String

Dim totalbeli, totaljual, totalstok As Double

Sub cetakprinter()

garis = String(100, "=")

garistengah = String(173, "-")

With barang 'Nama Database

.MoveFirst

Printer.CurrentX = 0

Printer.CurrentY = 0

Do While Not .EOF

If sw = 1 Then

Printer.FontBold = True

Printer.FontSize = 12

Printer.Print

Printer.Print Tab(4); "DAFTAR HARGA BARANG"

Printer.FontSize = 8

Printer.FontBold = False

Printer.Print Tab(4); garis;

Printer.Print Tab(4); "No."; Tab(10); "Kode Barang"; Tab(25); "Nama Barang"; Tab(60); "Harga Beli"; Tab(75); "Harga Jual"; Tab(90); "Stok"; Tab(100); "Kategori";

Printer.Print Tab(4); garis;

sw = 0

End If

Printer.Print Tab(4); nom;

Printer.Print Tab(10); !kode_barang;

Printer.Print Tab(25); !nama_barang;

Printer.Print Tab(60); Format(!hrga_beli, "###,###,###,###");

Printer.Print Tab(75); Format(!harga_jual, "###,###,###,###");

Printer.Print Tab(90); Format(!stok, "###,###,###,###");

Printer.Print Tab(100); !kategori;

Printer.Print Tab(4); garistengah

totalbeli = totalbeli + !hrga_beli

totaljual = totaljual + !harga_jual

totalstok = totalstok + !stok

.MoveNext

nom = nom + 1

Loop

Printer.Print Tab(4); garis;

Printer.Print Tab(60); Format(totalbeli, "###,###,###,###");

Printer.Print Tab(75); Format(totaljual, "###,###,###,###");

Printer.Print Tab(90); totalstok;

End With

Printer.NewPage

End Sub

Sub cetakview()

garis = String(100, "=")

garistengah = String(200, "-")

With barang 'Nama Database

.MoveFirst

Form2.CurrentX = 0

Form2.CurrentY = 0

Do While Not .EOF

If sw = 1 Then

Form2.FontBold = True

Form2.FontSize = 12

Form2.Print

Form2.Print Tab(4); "DAFTAR HARGA BARANG"

Form2.FontSize = 8

Form2.FontBold = False

Form2.Print Tab(4); garis;

Form2.Print Tab(4); "No."; Tab(10); "Kode Barang"; Tab(25); "Nama Barang"; Tab(60); "Harga Beli"; Tab(75); "Harga Jual"; Tab(90); "Stok"; Tab(100); "Kategori";

Form2.Print Tab(4); garis;

sw = 0

End If

Form2.Print Tab(4); nom;

Form2.Print Tab(10); !kode_barang;

Form2.Print Tab(25); !nama_barang;

Form2.Print Tab(60); Format(!hrga_beli, "###,###,###,###");

Form2.Print Tab(75); Format(!harga_jual, "###,###,###,###");

Form2.Print Tab(90); Format(!stok, "###,###,###,###");

Form2.Print Tab(100); !kategori;

Form2.Print Tab(4); garistengah

totalbeli = totalbeli + !hrga_beli

totaljual = totaljual + !harga_jual

totalstok = totalstok + !stok

.MoveNext

nom = nom + 1

Loop

Form2.Print Tab(4); garis;

Form2.Print Tab(60); Format(totalbeli, "###,###,###,###");

Form2.Print Tab(75); Format(totaljual, "###,###,###,###");

Form2.Print Tab(90); totalstok;

End With

End Sub

4. Doubel klik CommandButton1 dan ketik kode di bawah ini :

nom = 1

sw = 1

cetakview

form2.show

5. Doubel klik CommandButton2 dan ketik kode dibawah ini :

psn = MsgBox("Apakah Anda akan mencetak k e Printer?", vbYesNo, "Print")

If psn = vbYes Then

nom = 1

sw = 1

cetakprinter

barang.MoveLast

Printer.EndDoc

6.Simpan hasil pekerjaan Anda dan jalankan program

7. Berikut Gambar hasil Print Preview yang sudah jadi :

Hasil Cetak PrintPreview

Catatan:

Pembuatan aplikasi ini disesuaikan dengan Aplikasi Anda di mana terdapat database yang tesimpan dan terkoneksi, kode di atas hanya gambaran saja.Silakan Anda terapkan sendiri kode diatas
Pencetakan ke Printer dan ke form kodenya sebenarnya sama, hanya mengganti kata "Form2" menjadi "Printer" atau sebaliknya.
Kalau ada kekeliruan silakan komentar

Demikian tip cara Cara Mencetak Database di Form dan di Printer dengan VB6. Semoga bermanfaa selamat mencoba semoga berhasil.