Jumlah Pencetakan Report

Cetak Report Dengan Kriteria Jumlah Pencetakan Didalam Form

Kali ini kita akan bahas cara mencetak sebuah laporan/report dengan jumlah banyak pencetakannya tergantung dari sebuah Textbox dalam form.
Cara berikut ini sangat sederhana, hanya dengan menggunakan fungsi For ... Next.
Berikut adalah caranya :
Misalkan anda telah membuat sebuah report menggunakan Wizard dengan nama report rptUser, dan sebuah command button untuk mencetak report tersebut dengan nama cmdPrintReport.
1. Buat sebuah textbox dengan nama txtJmlPrint dalam form, lalu atur Format Property-nya menjadi General Number, dengan Default Value = 1
2. Lalu dalam event OnClick dari command button yang akan digunakan untuk mencetak laporan/report (cmdPrintReport), tambahkan code berikut ini :

Dim stDocName As String, Dim intJmlPrint As Integer

intJmlPrint = txtJmlPrint

stDocName = "rptUser"

If intJmlPrint < 1 Or intJmlPrint > 255 Then
MsgBox "Jumlah pencetakan minimal 1 lembar dan maksimal 255 lembar"
Else
    For intJmlPrint = 1 To intJmlPrint
    DoCmd.OpenReport stDocName, acNormal
    Next intJmlPrint
End If

Sehingga seluruh code pada event OnClick cmdPrintReport akan menjadi seperti ini :

Private Sub cmdPrintReport_Click()
On Error GoTo Err_cmdPrintReport_Click
Dim stDocName As String, intJmlPrint As Integer
stDocName = "rptUser"
intJmlPrint = txtJmlPrint
If intJmlPrint < 1 Or intJmlPrint > 255 Then
MsgBox "Jumlah pencetakan minimal 1 lembar dan maksimal 255 lembar"
Else
    For intJmlPrint = 1 To intJmlPrint
    DoCmd.OpenReport stDocName, acNormal
    Next intJmlPrint
End If
Exit_cmdPrintReport_Click:
    Exit Sub

Err_cmdPrintReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
End Sub

3. Klik Save dan test.

Semoga Bermanfaat...

Posted in: tips n trik