Untuk melakukan pencetakan nota, ada persiapan yang harus dilakukan. Kita siapkan sebuah button untuk mentrigger modul cetak, dimana modulnya adalah sebagai berikut:
1. Siapkan Report Headernya, dalam hal ini kita isi dengan variabel global yang sudah ada nilainya. Kita perlu mendefinisikan variabel global karena kita akan pakai header dalam setiap report
With rpt_header
.CompanyName = company_name
.CompanyAddress = company_address
.CompanyPhone = company_phone
End With
2. Definisi recordset untuk membuka tabel
Dim rpt_pembelian As New ADODB.recordset
Dim rpt_pembeliandetail As New ADODB.recordset
Call set_rec_getData(rpt_pembelian, cn, “SELECT * FROM tblBill WHERE BillNo =’” & txtNoNotaPembelian & “‘”)
Call set_rec_getData(rpt_pembeliandetail, cn, “SELECT * FROM tblBillDetail WHERE BillNo =’” & txtNoNotaPembelian & “‘”)
3. Masukkan nilai dari kontrol form ke dalam variabel global
rpt_field0 = txtNoNotaPembelian
rpt_field1 = txtNama
rpt_field2 = txtAlamat
rpt_field3 = txtKota
rpt_field4 = Format(txtTanggal.Value, “dd mmmm yyyy”)
rpt_field5 = Trim(FormatNumber(txtSubTotal, 2))
rpt_field6 = Trim(FormatNumber(txtDiscount, 2))
rpt_field7 = Trim(FormatNumber(txtGrandTotal, 2))
4. Set data source report ke recordset dan langsung ditampilkan
Set rptInvoicePembelian.DataSource = rpt_pembeliandetail
rptInvoicePembelian.Show vbModal
5. Release object
Set rpt_pembelian = Nothing
Set rpt_pembeliandetail = Nothing
Berikut tampilannya: