Access Berichte – Nachfrage vor dem Druck

Problem

Beim Drucken eines Berichtes kann es sehr leicht passieren, das bei Verwendung von Kopfbögen das falsche Papier im Drucker eingelegt ist. Es soll nun vor dem Druck abgefragt werden, ob der Anwender das richtige Papier eingelegt hat.

Lösung

Jeder Bericht verfügt über eine Ereignis-Prozedur „Beim Öffnen“ (VBA: Report_Open) in der Sie eine entsprechende Abfrage unterbringen können:

 Sub Report_Open (Cancel As Integer)
  Dim Taste As Integer

  Taste = MsgBox("Richtiges Papier eingelegt?", vbYesNo + vbQuestion, "Bericht '" & Me.Name & "' drucken:")

   If Taste = vbNo Then Cancel = True

 End Sub

Diese kleine Routine zeigt beim Öffnen eines Berichtes zunächst eine entsprechende Abfrage an. Klickt der Anwender auf Nein, wird die Prozedur-Variable „Cancel“ auf „True“ gesetzt und Access dadurch mitgeteilt, dass der Bericht nicht ausgedruckt werden soll. Ansonsten, also beim Klick auf Ja, behält die Prozedur-Variable den Standard-Wert (Cancel= False) und der Bericht wird wie gewohnt ausgedruckt