Cara menggunakan kode Visual Basic untuk menyusun dan mencetak dua laporan

Artikel ini berlaku untuk Microsoft Access database (MDB atau .accdb) dan Microsoft Access proyek (.adp).


Sedang: Memerlukan dasar makro, pengkodean dan keterampilan interoperabilitas .


Untuk versi Microsoft Access 2000 dari artikel ini, lihat 231805.

Ringkasan

Artikel ini menjelaskan metode yang dapat Anda gunakan untuk menyusun dan mencetak dua laporan. Metode alternatif dua laporan antara metode DoCmd.SelectObject dan DoCmd.PrintOut Visual Basic.

Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Informasi lebih lanjut

Kadang-kadang, Anda mungkin ingin mencetak halaman 1 dari satu laporan dan kemudian menyusun halaman dengan Halaman 1 dari laporan lain. Buka laporan dan pencetakan setiap halaman individual memerlukan permintaan dasar untuk dijalankan setiap kali. Metode alternatif adalah untuk menggabungkan kedua laporan dalam laporan utama sub.

Untuk menyusun dan mencetak dua laporan dan uji hasil, ikuti langkah-langkah berikut:

  1. Buka database sampel Northwind.mdb atau contoh akses proyek NorthwindCS.adp.

  2. Membuat modul baru, dan kemudian ketik atau tempel kode berikut:

    '***********************************
    'Declarations section of the module
    '***********************************
    Option Explicit
    '*********************************************************************
    'NumPages is the number of pages in the largest report. If one report
    'has fewer pages, the DoCmd.PrintOut statement for the smaller report
    'runs correctly, and no additional pages are printed.
    '*********************************************************************
    Function CollateReports(NumPages, Rpt1 As String, Rpt2 As String)
    Dim MyPageNum As Integer

    'Set the page number loop and alternate printing the report pages.
    For MyPageNum = 1 To NumPages
    'NumPages is the number of pages to print.
    DoCmd.SelectObject acReport, Rpt1, True
    DoCmd.PrintOut acPages, MyPageNum, MyPageNum
    DoCmd.SelectObject acReport, Rpt2, True
    DoCmd.PrintOut acPages, MyPageNum, MyPageNum
    Next MyPageNum
    End Function
  3. Untuk menguji hasil, ketik baris berikut di jendela segera, dan kemudian tekan ENTER:

    ? CollateReports(1, "Sales by Category", "Sales Totals by Amount")

    Perhatikan bahwa Microsoft Access mencetak halaman satu dari laporan masing-masing.

Referensi

Untuk informasi selengkapnya tentang metode SelectObject, klik Bantuan Microsoft Visual Basic
Menu bantuan , ketik selectobject di bantuan Office atau Wisaya jawaban, dan kemudian klik pencarian untuk melihat topik yang dikembalikan.

Untuk informasi selengkapnya tentang metode cetakan, klik Bantuan Microsoft Visual Basic
Menu bantuan , ketik cetakan di bantuan Office atau Wisaya jawaban, dan kemudian klik pencarian untuk melihat topik yang dikembalikan.

Perlu bantuan lainnya?

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung Microsoft Insider

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×