Gewusst wie: Drucken einer PDF-Datei mit VBA

September 6

Verwendung von Microsoft entworfen Visual Basic Applications (VBA) Visual6 Programmiersprache. Es entstand für Entwickler zum Aktivieren von benutzerdefinierten Funktionen und Prozesse zu automatisieren. Es kann verwendet werden, um ein Word-Dokument in Excel und umgekehrt, zu erstellen, wie sie in Microsoft Office-Anwendungen eingebettet ist. VBA können Sie PDF-Dateien drucken, wenn Sie, die VBA-Sprache und -Editor verstehen.

Anweisungen

1 Öffnen Sie den VBA-Editor, mit dem Dokument, in dem Sie den Code eingeben möchten. Klicken Sie auf "Datei", dann drücken Sie "Tools." Klicken Sie auf "Makros". Drücken Sie "Visual Basic-Editor." 2007-Anwendungen zu verwenden, klicken Sie auf "Entwickler", und drücken Sie die "Visual Basic."

2 Geben Sie diesen Code in das Codefenster ein:

Sub OpenPDF()

Dim StrPDFFileName As String

StrPDFFileName = "C:\examplefile.pdf"

(' Dieser nächste Funktion prüft, ob die Datei noch nicht geöffnet ist)

Wenn nicht dann FileLocked(strPDFFileName)

(Wenn sie False zurückgibt, dann weiter öffnen der PDF-Datei)

Documents.Open StrPDFFileName)

EndIf

EndSub

Bearbeiten "StrPDFFileName" fügen Sie den vollständigen Dateinamen der PDF-Datei, die Sie öffnen möchten. Ersetzen Sie "C:\examplefile.pdf" durch den tatsächlichen Speicherort-Pfad Ihres PDF-Dokuments.

3 Geben Sie in diesem Code so bereiten Sie Ihr PDF-Dokument zu drucken:

Sub-PrintPDF (StrPDFFileName als Zeichenfolge)

Dim sAdobeReader as String

sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"

RetVal = Shell (sAdobeReader & "/ P" & Chr(34) & sStrPDFFileName & Chr(34), 0)

EndSub

Ändern Sie den Pfad in diesem Code des "Adobe Reader" auf den tatsächlichen Pfad Ihrer Version.

4 Geben Sie diesen Code zum Auslösen von Ihrem PDF zum Ausdrucken:

Sub CommandButton_Click()

Aufruf OpenPDF

Rufen Sie PrintPDF

EndSub