Zoom Preview Report

Zoom preview report menggunakan acCmdZoom

Kali ini penulis akan membahas tentang bagaimana caranya meminimize atau memaximize jendela preview dari sebuah report, dimana mungkin anda butuhkan, karena defaultnya preview dari access adalah fit to window, sehingga ada kalanya kita membutuhkan untuk memperbesar tampilan previewnya, misalnya menjadi 100% atau lebih atau kurang.

Dibawah ini adalah salah satu cara untuk kita men-zoom preview sebuah report, yaitu dengan menggunakan acCmdZoom. perlu diingat jika metode ini akan tetap tereksekusi jika report kita tidak ada datanya, dan walaupun kita telah menempatkan macro atau code yang "melarang" tampilnya report jika tidak ada datanya. Jadi lebih baik anda pastikan terlebih dahulu, jika metode ini digunakan untuk report yang pasti selalu ada datanya. Namun jika menurut anda hal tersebut tidak menjadi masalah, maka silahkan anda ikuti trik berikut ini.

Nilai Zoom dari preview report yang bisa kita tentukan adalah : 10, 25, 50, 75, 100, 150, 200, 500 atau 1000 (dalam persen "%")

Gambar berikut adalah hasil Zoom Preview 100%

Caranya adalah sebagai berikut :

1. Anda buat sebuah Command Button dalam form untuk mem-Preview Report menggunakan Wizard dari Access

2. Setelah selesai anda masuk ke jendela visual basic editor

3. Code anda akan seperti dibawah ini :

     Private Sub cmdPreview_Click()
     On Error GoTo Err_cmdPreview_Click

         Dim stDocName As String

         stDocName = "rptUserGroup"
         DoCmd.OpenReport stDocName, acPreview
       
     Exit_cmdPreview_Click:
         Exit Sub

     Err_cmdPreview_Click:
         MsgBox Err.Description
         Resume Exit_cmdPreview_Click
     End Sub

 4. Lalu anda tambahkan code berikut ini

         DoCmd.Maximize
         DoCmd.RunCommand acCmdZoom100

dimana angka 100 dibelakang acCmdZoom menunjukkan 100%, anda bisa ganti dengan angka yang lain sesuai dengan kebutuhan anda, misalnya anda hanya ingin zoom previewnya 75%, maka anda ganti menjadi acCmdZoom75.

sehingga code anda akan menjadi seperti ini (untuk 100%) :

     Private Sub cmdPreview_Click()
     On Error GoTo Err_cmdPreview_Click

         Dim stDocName As String

         stDocName = "rptUserGroup"
         DoCmd.OpenReport stDocName, acPreview
         DoCmd.Maximize
         DoCmd.RunCommand acCmdZoom100
       
     Exit_cmdPreview_Click:
         Exit Sub

     Err_cmdPreview_Click:
         MsgBox Err.Description
         Resume Exit_cmdPreview_Click
     End Sub

Jika anda tidak mau membuat command button menggunakan wizard atau anda telah membuat command button tersebut, maka yang tinggal anda lakukan adalah menambahkan dua baris code diatas kedalam command button anda yang akan mempreview report anda, anda letakkan dibawah code yang seperti ini :

DoCmd.OpenReport "NamaReportnya", acPreview

Sehingga  code anda akan menjadi seperti ini :

DoCmd.OpenReport "NamaReportnya", acPreview

DoCmd.Maximize

DoCmd.RunCommand acCmdZoom100

Refference : databasedev

Semoga Bermanfaat...

Posted in: tips n trik