| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Technikerschüler der staatlichen Feintechnikschule Schwenningen zu Besuch bei SolidCAM GmbH in Schramberg, eine Pressemitteilung
|
Autor
|
Thema: Print (1608 mal gelesen)
|
e.pepe Mitglied Technischer Fachwirt/Projektmanager/Qualitätsmanager/Konstrukteur/CAD-Admin
Beiträge: 109 Registriert: 18.02.2012 Win 10 Prof.; 64Bit SolidWorks 2018 Sp5.0 Nvidia Quadro P2000
|
erstellt am: 21. Mai. 2012 11:08 <-- editieren / zitieren --> Unities abgeben:
|
myca Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 4383 Registriert: 15.06.2007 SW 2007 SW 2018 2,67 GHz,2 GB, ATI FIRE GL V5200, XP 64 3,4 GHz, 8GB, ATI FIRE PRO V7800, WIN 10 Pro
|
erstellt am: 21. Mai. 2012 11:12 <-- editieren / zitieren --> Unities abgeben: Nur für e.pepe
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 |
e.pepe Mitglied Technischer Fachwirt/Projektmanager/Qualitätsmanager/Konstrukteur/CAD-Admin
Beiträge: 109 Registriert: 18.02.2012
|
erstellt am: 21. Mai. 2012 11:20 <-- editieren / zitieren --> Unities abgeben:
|
dopplerm Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 3627 Registriert: 11.02.2005 Win 10 SWX 2019 SP 5.0
|
erstellt am: 21. Mai. 2012 13:27 <-- editieren / zitieren --> Unities abgeben: Nur für e.pepe
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 |
e.pepe Mitglied Technischer Fachwirt/Projektmanager/Qualitätsmanager/Konstrukteur/CAD-Admin
Beiträge: 109 Registriert: 18.02.2012
|
erstellt am: 21. Mai. 2012 14:43 <-- editieren / zitieren --> Unities abgeben:
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 |
KMassler Ehrenmitglied V.I.P. h.c. CAD Admin + Mädchen für Alles...
Beiträge: 2675 Registriert: 06.11.2000 SolidWorks Start 1999 ** CSWP 01/2008 ** ------------------ Zuletzt beruflich: - SWX2020 SP5; - SAP/PLM+ECTR; - DriveWorks Pro; - Programmierung: VBA, aktuell Visual Studio 2022/VB.Net ------------------ ab 2024 (privat): Onshape und anderes
|
erstellt am: 22. Mai. 2012 14:42 <-- editieren / zitieren --> Unities abgeben: Nur für e.pepe
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 |