|
VBScript-Funktion zum Drucken einer PDF-Datei |
|
|
|
Geschrieben von Stefan Mrosek
|
|
Folgende Funktion kann genutzt werden, um eine PDF-Datei auszudrucken.
Getestet mit installiertem Acrobat 6..
Der Aufruf erfolgt mit Call PrintPDFFile("Pfad\Filename")
Hinweis: Die Funktion beinhaltet noch keine Fehlerbehandlungen!
' Region Description
'
' Name: PrintPDF
' Author: Stefan Mrosek
' Version: 0.9
' Description: Die Funktion Druckt ein als Parameter übergebenes PDF-File
' auf dem Standarddrucker aus
' '
' EndRegion
Function PrintPDFFile (ByVal PDFFile)
Set Acroapp = CreateObject("AcroExch.App")
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
msg = AcroAVDoc.open(PDFFile, vbNull)
Set AcroAVDoc = Acroapp.GetActiveDoc
Set AcroPDDoc = AcroAVDoc.GetPDDoc
NumPages = AcroPDDoc.GetNumPages
AcroPDDoc.Close
Set AcroPDDoc = Nothing
msg = AcroAVDoc.PrintPagesSilent(0, NumPages, 3, True, False)
msg = AcroAVDoc.close(True)
Set AcroAVDoc = Nothing
Set Acroapp = Nothing
End Function
Call PrintPDFFile("d:\document.pdf")
Zu Favoriten hinzufügen (206) | Artikel zitieren | Aufgerufen: 7982
Nur registrierte Benutzer können Kommentare schreiben. Bitte melden Sie sich an oder registrieren Sie sich. Powered by AkoComment Tweaked Special Edition v.1.4.6 AkoComment © Copyright 2004 by Arthur Konze - www.mamboportal.com All right reserved |
|
Letzte Aktualisierung ( Donnerstag, 14 Dezember 2006 )
|