---

Hiho!

Es gibt ja die Möglichkeit, mit printer = ModelDoc2.Printer herauszubekommen welcher Drucker grad standardmäßig eingestellt ist. Kann man auch irgendwie an alle Drucker kommen, die auf dem System verfügbar sind?
Bin für jeden Tipp dankbar!

tööö
          Ansgar

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

---

Hallo Ansgar,

in VB gibt es die Printer-Collection, die man einfach durchlaufen kann. In VBA steht die nicht zur Verfügung, da musst du dir das über eine externe DLL geben lassen.

Beispiel dazu findest du auf http://www.aboutvb.de/vba/artikel/vbaprinterlist.htm

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Hiho!

Vielen Dank! Hab's hinbekommen!

Jetzt hab ich aber das nächste Problem: meine Druckroutine lautet:

Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    ' Drucker setzen:
    Part.Printer = frmLinienstaerke.cmbDrucker.Text
    ' Format:
    pClass.vbPrinter.PaperSize = 8
    pClass.vbPrinter.Orientation = 1 ' Landscape = 1, Portrait = 2
    '    retval = swApp.swPrintProperties(swPrintPaperSize, 8)
    DebugMsg ("Aktiver Drucker ist: " & Part.Printer)
    ' Druckauftrag senden:
    retval = Part.PrintDirect

Auf dem richtigen Drucker wird gedruckt, allerdings funktionieren meine Einstellungen für PaperSize und Orientation nicht... 

pClass.vbPrinter kommt hierher: http://www.vbarchiv.net/archiv/tipp_782.html

Hat irgendjemand ne Idee?

töö
      Ansgar.

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

---

Hallo Ansgar,

ich vermute, dass mit PrintDirect die aktuellen Einstellungen von SolidWorks genutzt werden (also entweder Systemeinstellungen oder Dokumenteinstellungen). Die solltest du vorher auch noch von deinem Programm aus setzen, Stichworte hier sind: PageSetup.Orientation und PageSetup.PrinterPaperSize

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Hiho Stefan!

Hast Recht - nun funktionierts!

Besten Dank!
  Ansgar.

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

---

Hiho!

Ich hab an dem Makro ein wenig weitergearbeitet und prinzipiell funktioniert nun. Genau gesagt funzt es auf 3 Rechner einwandfrei, auf dem 4ten ignoriert er aber die Einstellung für Seitenformat un druckt immer auf A4 und außerdem skaliert er nicht auf Blattgröße. Bei allen Rechnern sind definitiv die Makro-Versionen gleich, ebenso die Version der Druckertreiber und DLLs und auch die Stanard-Einstellungen des Druckers (die aber sowieso egal sein sollten, da ich ja alles im Makro setze).
Ich vermute, daß es nicht wirklich ein Problem des Makros ist, sondern eher der Kniff irgendwo in Windows oder SWX selbst liegt...

Hat jemand ne Idee, woran's liegen könnte?

MfG
      Ansgar

Hier noch der Code der Druckroutine:

    ' eigentliche druckroutine:
    ' #########################
    Set swApp = Application.SldWorks
    Dim Model2 As ModelDoc2
    Set Model2 = swApp.ActiveDoc

    ' Drucker setzen:
    Part.Printer = frmLinienstaerke.cmbDrucker.Text
   
    ' Format: 
    Dim Seiteneinstellung As PageSetup
    Set Seiteneinstellung = Model2.PageSetup
   
    Select Case frmLinienstaerke.cmbOrientation
        Case Is = "Landscape"
            Seiteneinstellung.Orientation = swPageSetupOrient_Landscape
        Case Is = "Portrait"
            Seiteneinstellung.Orientation = swPageSetupOrient_Portrait
        Case Else
            Seiteneinstellung.Orientation = swPageSetupOrient_Landscape
    End Select

    Select Case frmLinienstaerke.cmbFormat.Text
        Case Is = "A3"
            Seiteneinstellung.PrinterPaperSize = Format_A3
        Case Is = "A4"
            Seiteneinstellung.PrinterPaperSize = Format_A4
        Case Is = "Oversize ISO A3"
            Seiteneinstellung.PrinterPaperSize = Format_OversizeA3
        Case Is = "Oversize ISO A2"
            Seiteneinstellung.PrinterPaperSize = Format_OversizeA2
        Case Is = "Oversize ISO A1"
            Seiteneinstellung.PrinterPaperSize = Format_OversizeA1
        Case Is = "Oversize ISO A0"
            Seiteneinstellung.PrinterPaperSize = Format_OversizeA0
        Case Else
            Seiteneinstellung.PrinterPaperSize = Format_A3
    End Select
   
    Select Case frmLinienstaerke.opt_Scale2Fit.Value
        Case Is = "True", "False"
            Seiteneinstellung.ScaleToFit = frmLinienstaerke.opt_Scale2Fit.Value
        Case Else
            Seiteneinstellung.ScaleToFit = True
    End Select

 
    Dim i As Integer
    For i = 1 To frmLinienstaerke.cmbAnzahl
        retval = Part.PrintDirect
    Next i

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

---

Hiho!

Noch vergessen: der einzige möglicherweise wichtige Unterschied zwischen den Installationen auf den verschiedenen Rechner ist, daß auf denen, wo das Makro läuft, ist irgendwann mal SWX2004 installiert worden und dann nach und nach die Service-Packs. Bei dem Rechner, wo's nicht läuft wurde dirket von 0 auf SP5.0 geupdated...

töö
Ansgar.

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

---

Hallo Stefan,

sind den die Namen der Drucker identisch benannt. Ich hatte mal den Fall das z.B. die A4 bzw. A3 Formate immer auf dem Plotter A2 gedruckt wurde weil eben die Namen nicht gleich waren.

Gruß Ralf

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