Std.-Drucker wechseln und drucken

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    Std.-Drucker wechseln und drucken

    Hallo,

    hab ein kleines Problem mit dem Drucken eines PDF's mit unten stehenden Code...

    Wenn ich nun Office-Dokumenten wie z.B. Word oder eine Email ausdrucken will funktioniert das wenn das Programm wie Word oder Outlook NICHT geöffnet sind perfekt...

    Wenn diese Programme aber geöffnet sind, wird der Std.-Drucker nicht geändert und druckt einfach darauf los.

    Wie könnte ich das umgehen ??

    Mir fehlt da total der Ansatz...

    Gruß
    Alex

    VB.NET-Quellcode

    1. 'Drucker merken
    2. Dim pd As New PrintDocument()
    3. For Each s As String In PrinterSettings.InstalledPrinters
    4. 'Standarddrucker ?
    5. If pd.PrinterSettings.PrinterName = s Then
    6. 'MsgBox(s & " ist der Standardrucker.")
    7. MeinDrucker = s
    8. End If
    9. Next s
    11. 'Drucker auswählen für PDFCreator
    12. SetDefaultPrinter(DirectCast("PDFCreator", String))
    15. Dim pdfjob As PDFCreator.clsPDFCreator
    16. pdfjob = New PDFCreator.clsPDFCreator
    18. Try
    19. pdfjob.cStart(, True)
    21. Catch ex As Exception
    22. 'gemerkten Drucker wieder als Standard einsetzen
    23. SetDefaultPrinter(DirectCast(MeinDrucker, String))
    25. ' und Fehlermeldung
    26. Fehlermeldung = ex.Message & " - Fehler: Dateivorschau_erstellen, Fehler beim Drucken . . . "
    27. Fehler_Instance.Ausgabe(Fehlermeldung)
    29. End Try
    31. 'PDFCreater vorbereiten und Dokument drucken
    32. With pdfjob
    33. .cOption("UseAutosave") = 1
    34. .cOption("UseAutosaveDirectory") = 1
    35. .cOption("AutosaveFormat") = 2 ' 0 = PDF, 1 = PNG, 2 = JPEG
    36. .cOption("AutosaveDirectory") = OutputPath
    37. .cOption("AutosaveFilename") = OutputFilename
    38. .cClearCache()
    39. .cPrintFile(OriginalDatei)
    40. End With
    42. pdfjob.cPrinterStop = False
    44. 'Wir warten bis der Druckjob gedruckt wurde
    45. Do Until pdfjob.cCountOfPrintjobs = 0
    46. Application.DoEvents()
    48. Loop
    50. pdfjob.cClose()
    51. pdfjob = Nothing
    53. 'gemerkten Drucker wieder als Standard einsetzen
    54. SetDefaultPrinter(DirectCast(MeinDrucker, String))

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „lris08“ ()

    Hallo,

    sorry, wenn ich mit dem Thema nerve, aber bekomms ned auf die Reihe...

    Habe aber etwas gefunden, was mit Kopfschmerzen bringt...

    Der Codeablauf stimmt, es wird alles abgearbeitet - auch wird der Std.-Drucker neu gesetzt.
    Nur wenn der Druck über Word (z.B. wenn das Dokument halt ein Word Dokument ist) angestroßen wird, drucker er auf den alten Std.-Drucker aus... obwohl der Std.-Drucker neu gesetzt wurde.

    Kann mir das nicht erklären...

    Habe schon gedacht, ok - vielleicht läuft der Code schneller ab als der Std.-Drucker im System erkennt wird bzw. von Word, aber habe es 100 mal nachvollzogen, der neue Std.-Drucker wird vor anstroß des druckens in Word gesetzt...
    Ausgedruckt wird aber nur auf den alten Std.-Drucker.

    Das komische daran ist aber, dies passiert nur wenn Word vorher geöffnet ist...
    Wenn Word vorher geschlossen ist, läuft alles perfekt ab...

    Verstehe es nicht... Habt Ihr da ne Idee woran das leigen kann?

    Gruß
    Alex


    EDIT:

    Mit ist gerade nich was aufgefallen,,, Wenn ich den Druck starte wenn Word schon geöffnet ist, wird keine weitere Instanz von Word aufgemacht, sondern er druckt über das derzeit geöffnete Dokument bzw. führ er darüber den Druckbefehl aus...
    Könnte ich nicht dagen, starte eine neue Word instanz ?

    Code:

    VB.NET-Quellcode

    1. Try
    2. pdfjob.cStart(, True)
    4. Catch ex As Exception
    5. 'gemerkten Drucker wieder als Standard einsetzen
    6. SetDefaultPrinter(DirectCast(AltStdDrucker, String))
    8. ' und Fehlermeldung
    9. Fehlermeldung = ex.Message & " - Fehler: Dateivorschau_erstellen, Fehler beim Drucken . . . "
    10. Fehler_Instance.Ausgabe(Fehlermeldung)
    12. Finally
    13. 'gemerkten Drucker wieder als Standard einsetzen
    14. SetDefaultPrinter(DirectCast(AltStdDrucker, String))
    16. End Try
    18. 'PDFCreater vorbereiten und Dokument drucken
    19. With pdfjob
    20. .cOption("UseAutosave") = 1
    21. .cOption("UseAutosaveDirectory") = 1
    22. .cOption("UseAutosaveDirectory") = 1
    23. .cOption("AutosaveFormat") = 2 ' 0 = PDF, 1 = PNG, 2 = JPEG
    24. .cOption("AutosaveDirectory") = OutputPath
    25. .cOption("AutosaveFilename") = OutputFilename
    26. .cClearCache()
    27. .cPrintFile(OriginalDatei)
    28. End With
    30. pdfjob.cPrinterStop = False
    32. 'Wir warten bis der Druckjob gedruckt wurde
    33. Do Until pdfjob.cCountOfPrintjobs = 0
    34. Application.DoEvents()
    36. Loop
    38. pdfjob.cClose()
    39. pdfjob = Nothing
    Bilder

    • Image2.jpg

      24,44 kB, 504×247, 231 mal angesehen

Facebook
Telefonspende