PDFCeator in Verbindung mit VB-net, Probleme bei Outlook + PDF's

lris08 · October 1, 2010, 9:24am

Hallo und guten Tag,

ich schreibe für mich ein kleinen Archivprogramm. Nix besonderes...

Mein Problem ist, dass ich Dokumente (aller Art) in JPG's umwandeln lasse.

Im großen und ganzen Gunktioniert das schon mal sehr gut.

Jedoch habe ich das Problem, daß ich beim "Ausdruck" eine MSG Datei, also einer Email aus Outlook 2010 immer das PDFCreator Druckfesnter mit Dokumententitel etc bekomme.

Die passiert jedoch nur, wenn Outlook geöffnet ist.

Ebenso habe ich das Problem, daß wenn ich ein PDF zu JPG "drucken" will, bleibt alles stehen, bis ich Acrobat reader von habe schließe.

Vielleicht hat ja in diesem Forum einer eine Antwort auf meine Probleme...

Würde mich über eine Nachricht freuen...

Danke und viele Grüße aus Niederbayern :)

Hier mal der Code in VB:

```

Dim

OutputPath As String = Datenbankpfad & "\\FILES_" & Datenbankname & "\\Thumbnails" ' Wohin PDFCreator es speichern soll

Dim OutputFilename As String = DokumentenID & ".tif" ' Wie PDFCreator die Ausgabe benennen soll

Dim OriginalDatei As String = Datenbankpfad & "\\FILES_" & Datenbankname & "\\FILES\\" & DokumentenID & F_Exte ' Die Datei die gedruckt werden soll

'Drucker merken

Dim pd As New PrintDocument()For Each s As String In PrinterSettings.InstalledPrinters'Standarddrucker ?

If pd.PrinterSettings.PrinterName = s Then

'MsgBox(s & " ist der Standardrucker.")

MeinDrucker = s

End If

Next s'Drucker auswählen für PDFCreator

SetDefaultPrinter(

DirectCast("PDFCreator", String))Dim pdfjob As PDFCreator.clsPDFCreator

pdfjob =

New PDFCreator.clsPDFCreator

Try

pdfjob.cStart(,

True)Catch ex As Exception

End Try

'PDFCreater vorbereiten und Dokument drucken

.cOption(

With pdfjob"UseAutosave") = 1"UseAutosaveDirectory") = 1"Papersize") = 1"AutosaveFormat") = 2 ' 0 = PDF, 1 = PNG, 2 = JPEG

.cOption(

.cClearCache()

.cPrintFile(OriginalDatei)

"AutosaveDirectory") = OutputPath"AutosaveFilename") = OutputFilenameEnd With

pdfjob.cPrinterStop =

False

'Wir warten bis der Druckjob gedruckt wurde

Do Until pdfjob.cCountOfPrintjobs = 0Application.DoEvents()Loop

pdfjob.cClose()

pdfjob =

Nothing

'gemerkten Drucker wieder als Standard einsetzen

SetDefaultPrinter(

DirectCast(MeinDrucker, String)) ```

Zur Info, dies läuft in einem Backgroudworker ...

Probleme sind aber auch wenn dies ohne BGW läuft.