Hallo,
habe jetzt lange mit der Version 0.9.9 gearbeitet und hat auch wunderbar funktioniert. Leider ist diese Version nicht mehr mit Windows10 kompatibel und Ms Access97 stürtzt ab. Gibt es Programmierbeispiele auf Access 97 mit der neuen Com Schnittstelle der Version 2.x?
Danke im voraus.
Hallo,
es gibt ein VBA Beispiel, allerdings für Word.
Die Beispiele werden automatisch zusammen mit dem PDFCreator installiert.
Hier findest Du eine ausführliche Dokumentation zu der neuen COM-Schnittstelle:
http://docs.pdfforge.org/pdfcreator/2.5/de/pdfcreator/com-interface/
Beste Grüße
Robin
Hallo Robin,
danke für Die Rückantwort jedoch ist in Access97 der code ziemlich anders. Schade, daß die Programmierung mit Änderung der Version nicht gleich geblieben ist. Ich habe die vba Verweise von pdfcreater.com.tlb in Access geladen jedoch kann ich mit den neuen Befehlen ohne Hilfe nichts anfangen:
.AddFileToQueue
.PrinFile
usw.
Vielleicht kenn sich jemand damit aus.
grüsse
Leider konnte die Programmierung aus mehreren Gründen nicht so bleiben, wie sie war.
Der Workflow war nicht optimal, der gesamte PDFCreator wurde neu geschrieben, zudem sind im PDFCreator nun andere Einstellungen/Möglichkeiten vorhanden.
Die Dokumentation erklärt die wesentlichen Unterschiede zwischen dem alten und dem neuen Workflow, sowie allgemein die Verwendung der neuen Schnittstelle. Diese sollte in jedem Fall gelesen werden, dort steht auch im Detail was sich hinter AddFileToQueue, PrintFile usw. verbirgt.
Hallo,
mit ein Paar Änderungen im code konnte ich jetzt ein Pdf erstellen:
Sub printTOpdf()
Dim fullPath
Dim PDFCreatorQueue As Queue
Dim pJob As PrintJob
Set PDFCreatorQueue = CreateObject(“PDFCreator.JobQueue”)
fullPath = "C:\Users\user\Desktop\TestPage_2Pdf.pdf "
PDFCreatorQueue.ReleaseCom
MsgBox “Initializing PDFCreator queue…”
PDFCreatorQueue.Initialize
MsgBox “Printing the current active document…”
DoCmd.OpenReport “Probe”
MsgBox “Waiting for the job to arrive at the queue…”
If Not PDFCreatorQueue.WaitForJob(10) Then
MsgBox “The print job did not reach the queue within " & " 10 seconds”
Else
MsgBox “Currently there are " & PDFCreatorQueue.Count & " job(s) in the queue”
MsgBox “Getting job instance”
Set pJob = PDFCreatorQueue.NextJob
pJob.SetProfileByGuid ("DefaultGuid")
MsgBox "Converting under ""DefaultGuid"" conversion profile"
pJob.ConvertTo (fullPath)
If (Not pJob.IsFinished Or Not pJob.IsSuccessful) Then
MsgBox "Could not convert the file: " & fullPath
Else
MsgBox "Job finished successfully"
End If
End If
MsgBox “Releasing the object”
PDFCreatorQueue.ReleaseCom
End Sub
Wo ich noch Probleme habe ist im Email Teil:
pJob.SetProfileSetting “EmailClient.Enabled”, “true”
pJob.SetProfileSetting “EmailClient.Subject”, “Test Mail”
pJob.SetProfileSetting “EmailClient.Content”, “Message to recipient of this e-mail.”
pJob.SetProfileSetting “EmailClient.Recipients”, “info@chipware.it”
Hier meldet Access “the property EmailClient.enabled does not exist”.
Kannst Du mir weiterhelfen?
grüsse
roland
Hall Robin,
habe jetzt die richtige Schreibweise gefunden:
pJob.SetProfileSetting “EmailClientSettings.Enabled”, “true”
pJob.SetProfileSetting “EmailClientSettings.Subject”, “Test Mail”
pJob.SetProfileSetting “EmailClientSettings.Content”, “Message to recipient of this e-mail.”
pJob.SetProfileSetting “EmailClientSettings.Recipients”, “info@chipware.it”
Er meldet aber trotzdem “run time error, unknows error in email client action”
Hallo Roland,
funktioniert die Aktion, wenn Du diese über die PDFCreator GUI testest? Welchen Email-Client verwendest Du?
Beste Grüße
Robin
Hallo,
ja, über die Gui funktioniert die Aktion.
grüsse
roland
Hallo Robin,
jetzt hat es funktioniert. Hatte die Einstellung MsAccess im Kompatibilitätsmodus zu starten. Wahrscheinlich hat dies den Pdfcreator teilweise blockiert.
grüsse
roland
Hallo,
habe jetzt alles getestet und es hat auch funktioniert. Plötzlich aber wird beim Emailversand die Emailadresse nicht mehr dem Emailclient zugeschickt:
pJob.SetProfileSetting “EmailClientSettings.Recipients”, “info@chipware.it”
Sollte ja mit diesem Parameter funktionieren, oder? Oder ist im ausgewähltem Profil noch etwas einzustellen?
grüsse
roland
Hallo Robin,
jetzt funktioniert alles. Hatte die Profilauswahl hinter dem SetProfileSetting gesetzt, deshalb wurden die Standartwerte überschrieben. Gibt es eine Möglichkeit eine Microsoft Outlook oft (Vorlage) im Emailversand einzubinden?
Danke
roland
Hallo Roland,
mit ist leider keine Möglichkeit bekannt, hier Vorlagen aus Outlook mit einbinden zu können.
Beste Grüße
Robin