Gewusst wie: Drucken einer PDF-Datei mit VBA
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