---

Werte Gemeinde!

Ich steh grad ein wenig auf der Leitung.
Ziel derzeit: Ein einfaches Druckmakro.
printspecs festgelegt
pagesetup festgelegt
printout4 lt. API Hilfe

Basics eigentlich, und es funktioniert auch, aber nach dem printout4 Befehl setzt er den Drucker wieder auf einen anderen zurück den ich gar nicht möchte.
Kommentier ich die Zeile mit Printout4 aus, dann passt alles =>  
Wer eine Idee, warum das passiert?

Hier mein aufs nötigste reduzierte Makro:

_____________________________________________
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swPageSetup As SldWorks.PageSetup
Dim printSpec As SldWorks.PrintSpecification

Public Const swPrinter As String = "\\EEP-S001\KM C353 SW"

Option Explicit
Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swPageSetup = swModel.PageSetup
   
    'Create a print specification
    Set printSpec = swModelDocExt.GetPrintSpecification
    swModel.Printer = swPrinter
    printSpec.ConvertToHighQuality = True
    'printSpec.AddPrintRange 1, printSpec.sheetcount
    printSpec.ScaleMethod = swPrintAll
    printSpec.PrintToFile = False

    'Set Printer Page Settings
    swPageSetup.PrinterPaperSize = 9                            '9 = A4, 8 = A3
    swPageSetup.Orientation = swPageSetupOrient_Landscape       'otherwise swPageSetupOrient_Portrait
    swPageSetup.HighQuality = True
    swPageSetup.PrinterPaperSource = 7                          '7 = "auto": found out with macro recording
    swPageSetup.ScaleToFit = True

    swModelDocExt.PrintOut4 swPrinter, "", printSpec

End Sub

[Diese Nachricht wurde von - HH - am 19. Jan. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

2021-01-20Drucker1.jpg

Moin,

kann es sein, dass du den Haken bei "Windows verwaltet Standarddrucker"
drin hast? Ist nur so eine Idee 

------------------
==========
Gruß
Andreas
==========

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von ad_man:
Moin,

kann es sein, dass du den Haken bei "Windows verwaltet Standarddrucker"
drin hast? Ist nur so eine Idee   

---

Ja hatte ich eingestellt, aber es hat keine Auswirkung darauf.
Wenn ein anderer Drucker in der Zeichnung eingestellt war, wird er bis zum Printout4 Befehl richtig umgestellt, und nach dem Drucken, steht plötzlich wieder der andere drin.
Als Workaround schreibe ich jetzt nach dem Printout4 Befehl den Drucker noch mal rein: swModel.Printer = swPrinter
Aber seltsam ist das Ganze schon.
Generell ist es komisch dass das Drucken einer Zeichnung in 2 Sekunden geht, und bei anderen 12 Sekunden dauert. Check ich nicht.

[Diese Nachricht wurde von - HH - am 20. Jan. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nur noch mal zum Verständnis: Die Ausgabe der Zeichnung erfolgt auf
dem richtigen Drucker, danach ist im Seiteneinstellungsdialog wieder der
alte Drucker drin. Wenn das so ist, dann probiere doch mal aus, die
Zeichnung nach dem Drucken zu speichern. Ich meine mich zu erinnern,
dass dann die "Seiteneinstellungsparameter" übernommen und in der Zeichnungsdatei
gespeichert werden.

------------------
==========
Gruß
Andreas
==========

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von ad_man:
Nur noch mal zum Verständnis: Die Ausgabe der Zeichnung erfolgt auf
dem richtigen Drucker, danach ist im Seiteneinstellungsdialog wieder der
alte Drucker drin.

---

Ja genau.

Zitat:

---

Original erstellt von ad_man:
Wenn das so ist, dann probiere doch mal aus, die
Zeichnung nach dem Drucken zu speichern. Ich meine mich zu erinnern,
dass dann die "Seiteneinstellungsparameter" übernommen und in der Zeichnungsdatei
gespeichert werden.

---

Ja das Problem dabei ist, dass ich die Zeichnung eigentlich nicht speichern möchte.
Ich gebe oft mit Absicht Zeichnungen raus wo viele Dinge von mir gelöscht wurden,
(meist bei Nacharbeiten o.ä) da möchte ich schließen ohne speichern.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was passiert denn, wenn du im Printout4 für den ersten Parameter einen
Leerstring übergibst? Laut Doku müsste dann dein definierter Default-Drucker
verwendet werden.

------------------
==========
Gruß
Andreas
==========

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP