---

PRINT.zip 609001-Blatt1.pdf

Hallo zusammen,

Ich habe da ein Problem und zwar wenn ich aus Solidworks ein Zeichnung Drücken wird Hochformat in Querfromat gedrückt. Bei A3 geht es kann mir jemand helfen??

mfg

Pepe

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

---

Hi,

Zitat:

---

kann mir jemand helfen

---

ja, jemand kann    - über Blattformate nachlesen. Ansonsten RMT auf eine leere Stelle auf der Zeichnung klicken und über Eigenschaften das Blattformat ändern/wechseln.

G.  thomas

------------------

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

---

mir geht es um das Makro wenn ich a4hoch auswähle wird die Zeichnung wie pdf ausgedrückt. Bei a3 hoch oder quer geht es nur bei a4hoch nicht..

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

---

a. gehts hier um das druckmenue?
b. gehts hier um: als pdf drucken?
c. gehts hier um ein makro?
d. weitere möglichkeit?

lg Martin

------------------
Bin jetzt auch unter Skype erreichbar  , einfach nach Martin Doppler in Wien suchen.

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

---

Unbenannt.PNG Ausdruck.PNG

Hi

Es handelt sich um ein Makro der bissel modifiziert wurde bei dem man auswählen kann A4 hoch oder quer und A3 hoch oder quer.
A3 hoch und quer wird richtig ausgedruckt nur wenn ich A4 hoch wähle wird die Zeichnung wie im Bild ausgedruckt.

Kann sich bitte jemand das makro ansehen ich bin mit meinem Latein am ende..

Vielen dank

pepe

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

---

Printbedingungen_pepe.png

Schau dier mal den Code-Teil in der Sub PrintOut an:

Code:

---

'...
   
'wenn format ist A4-Hoch (= A4Portrait), dann ...

If PrintForm.A4Portrait = True Then      'Bedingung trifft zu, Orientation auf Portrait gesetzt.
        bRet = SwApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Portrait)      'Querformat
        If Not bRet Then MsgBox ("Einstellung von Hochformat ist fehlgeschlagen!")
Else                                      'Elsezweig entfällt
        bRet = SwApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Landscape)      'Querformat
        If Not bRet Then MsgBox ("Einstellung von Querformat ist fehlgeschlagen!")
End If

'Jetzt aber:
If PrintForm.A3Portrait = True Then      'Bedingung trifft nicht zu, deshalb ....
        bRet = SwApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Portrait)      'Querformat
        If Not bRet Then MsgBox ("Einstellung von Hochformat ist fehlgeschlagen!")
Else                                     ' tritt dieser Zweig in Kraft: Orientation wieder auf Landscape gesetzt
        bRet = SwApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Landscape)      'Querformat
        If Not bRet Then MsgBox ("Einstellung von Querformat ist fehlgeschlagen!")
End If
...

---

Alles klar?

Du musst das ganze in eine einzige If...Else If...Else..End If-Struktur packen, sonst heben sich die Bedingungen wieder auf.
Viel Spaß dabei    

Ach ja, das nächste Mal ein etwas aussagekräftigerer Titel wäre nett. "Print" kann alles mögliche sein.
Wenn es um Makro-Programmierung geht, dann wäre ein Vorsatz wie "Makro:" oder "API:" angebracht, dann wissen
alle potenziellen Helfer gleich, ob sie hier richtig sind.
------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim        

[Diese Nachricht wurde von KMassler am 22. Mai. 2012 editiert.]

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