Access Berichte – Individuelle Kopien von Berichten drucken

Problem

Oftmals müssen Sie auf Original und Kopien eines Berichtes Hinweise wie „Original“,
„Kopie Buchhaltung“, „Kopie Kunde“, „Kopie Abteilungsleiter“, „Kopie …“ ausdrucken.

Lösung

Zur Lösung dieses Problems können Sie eine Schaltfläche mit der folgenden Ereignisprozedur „Beim Klicken“ einsetzen:

Private Sub btnPrint_Click() 
 Dim strReport As String 
 Dim arrKopien As Variant 
 Dim I As Long, R As Report

strReport = "Testbericht" 
arrKopien = Array("Original", "Kopie Buchhaltung", "Kopie Kunde", "Kopie Abteilungsleiter")

For I = 0 To UBound(arrKopien)

DoCmd.OpenReport strReport, acViewPreview 
Set R = Reports(strReport) 
R.lblKopie.Caption = arrKopien(I) 
DoCmd.PrintOut 
acPrintAll DoCmd.Close acReport, strReport

Next I

Set R = Nothing

End Sub