CETAK FAKTUR / INVOICE / KUITANSI DENGAN VB 6 DAN CRYSTAL REPORT 8.5

Baca Juga

Berikut saya berikan link download source code "sangat sederhana" untuk mencetak langsung faktur, invoice atau kuitansi langsung ke printer.

Cara Cetak Faktur

1. Faktur Baru

- Klik tombol baru, secara otomatis aplikasi akan memunculkan nomor faktur/urut baru
- Pilih dropdown kode barang
- Masukkan kuantitas yang dijual
- Klik tombol Tambah, maka grid (MSFlexgrid - red) akan terisi dengan item barang yang dijual lengkap dengan harga dan kuantitasnya, ulangi langkah mulai dari memilih dari dropdown barang sampai dengan menekan tombol tambah untuk mengisi grid.

- Tekan tombol simpan untuk menyimpan dan mencetak atau tekan tombol baru untuk mengisingkan form

2. Cetak Faktur Yang Sudah Pernah diinput

- Cari Faktur dengan memilih dari dropdown (combobox) No Faktur, kemudian tekan tombol (command) Cetak untuk mencetak langsung ke printer.

Component yang perlu ditambahkan
- MSFlexgrid Control 6.0
- Crystal Report Control

Secara singkat dapat saya sampaikan untuk mencetak faktur langsung ke printer dengan vb6 dan crystal report langkah-langkahnya adalah sebagai berikut,
- Menyimpan data ke database dengan identitas tertentu, seperti nomor faktur dll.

- Untuk memungkinkan hanya satu data yang tercetak yaitu data yang baru saja disimpan, maka crystal report harus dipanggil dan ditambahkan selection formula agar hanya data tersebut yang tampil/tercetak (contoh code : crt1.selectionFormula = "{jual.nofaktur}='" & Combo1.Text & "'")

- setting destination crystal report ke to printer (contoh code di vb6 : crt1.Destination = crptToPrinter)

NB : 

Bila setting destination crystal report langsung ke printer maka aplikasi tidak memberikan pilihan akan di print di printer yang mana, karena aplikasi akan langsung memilih printer yang diset sebagai default

Source code :

http://www.ziddu.com/download/23481200/cetakfaktur.rar.html


Link Baru, klik tombol download dibawah ini :

DOWNLOAD