PDF-Datei im Formular anzeigen

Wie es der Teufel will, wünscht sich ein Kunde die Anzeige von PDF-Dokumenten in einem Access-Formular. Nichts leichter als das, wie der vorliegende Beitrag zeigt. Einzige Voraussetzung ist die Installation einer Version des Adobe Acrobat Readers und das Vorhandensein des entsprechenden OCX-Steuerelements.

Beispieldatenbank

Die Beispieldatenbank enthält ein Formular mit dem PDF-OCX zur Anzeige einer per Dateiauswahldialog ermittelten PDF-Datei.

Integrieren des PDF-Steuerelements

Erstellen Sie zunächst ein neues Formular. Fügen Sie diesem das PDF-Steuerelement hinzu. Dazu wählen Sie aus der Menüleiste den Eintrag Einfügen/ActiveX-Steuerelement... aus. Benennen Sie das Steuerelement in ctlPDF um.

Abbildung 1

Das PDF-Steuerelement mit einem Dokument füllen

Um im Formular ein Dokument anzuzeigen, müssen Sie dieses zunächst auswählen. Dazu verwenden Sie einen Dialog zur Auswahl von Dateien wie im Beitrag Dateidialog per VBA öffnen vorgestellt.

Für die Schaltfläche zum Anzeigen des Dialoges legen Sie die folgende Ereignisprozedur an:

Private Sub cmdAuswaehlen_Click()

Dim objPDF As PdfLib.Pdf

Set objPDF = Me.ctlPDF.Object

Me.txtDatei = DateiOeffnen("Datei öffnen", ".pdf-Dateien" & Chr$(0) & "*.pdf")

If Not Nz(Me.txtDatei, "") = "" Then

objPDF.src = Me.txtDatei

End If

End Sub

Die Prozedur erstellt zunächst eine Objektvariable für den Verweis auf das PDF-Steuerelement. Anschließend zeigt sie den Dialog zur Auswahl der gewünschten PDF-Datei an. Wenn der Dialog einen Dateinamen zurückgibt, weist die Prozedur der Eigenschaft src des PDF-Steuerelements den Namen der ausgewählten Datei zu.