| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Hilfe, Plot wird gedreht (765 mal gelesen)
|
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 01. Feb. 2006 12:13 <-- editieren / zitieren --> Unities abgeben:
Hallo Programmierer, ich habe uns anhängendes Makro "zusammengestrickt". Nun hat ein findiger Benutzer einmal beim Drucken "90° drehen" eingestellt. Und schon plottet das Makro, weil es davon nichts weiss, auf das gedrehte Blatt! Wie kann ich diese Einstellung im Programmcode abfangen und zurücksetzen? ------------------ Gruß Wilfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 01. Feb. 2006 19:50 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
Hi Wilfried... Ich denke das Du in deinem Code die Druckausrichtung fest vorgeben solltest.. ;-) Hatten mal das Prob das A0 Format Hochformat der Rest Querformat gedruckt werden sollte... Sind etwa so vorgegangen: Code: If sFormat = "A0" Then oPrintMgr.Orientation = kLandscapeOrientation ' ACHTUNG: Landscape ist hier hochkant !! oPrintMgr.Orientation = oDrgDoc.Sheets.Item(i).Orientation Else oPrintMgr.Orientation = kPortraitOrientation oPrintMgr.Orientation = oDrgDoc.Sheets.Item(i).Orientation End If
Das in einer Code: For Next
Schleife wobei i die Anzahl der zu Druckenden Blätter ist !!!Hoffe das es Dir etwas weiter hilft.. LG Andreas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 01. Feb. 2006 20:19 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas, danke für deine Antwort. Die Orientierung hatte ich schon mal zwischendurch eingebaut. Aber warum, um Gottes willen, ist denn Landscape hochkant???!! Naja, die Diva vielleicht? Ich werde es morgen mal mit Portrait versuchen. ------------------ Gruß Wilfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 01. Feb. 2006 23:12 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
Hi Wilfried..... *grins*.... Landscape hochkant war in der Diva 7 (oder 8??).... *lach*... Hatte damals auch bei MIR lange gedauert bis ich diesen kleinen BUG verstanden hatte (ca 10 km Papier später!) Mit Glück hat Autodesk das auch bemerkt..... ;-) Melde Dich mal wenns geklappt hat... Gruß Andreas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 02. Feb. 2006 00:52 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas, mach ich. Edit: Funktioniert leider nicht. Der Haken "um 90° drehen" ist immer noch drin und der Plot liegt falsch. Ach ja, hatte ich was wichtiges vergessen, wir haben V10! [Diese Nachricht wurde von Fan-ME10 am 02. Feb. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
VOSTA1 Mitglied techn. Angestellter
Beiträge: 108 Registriert: 23.12.2002
|
erstellt am: 02. Feb. 2006 16:05 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
Hallo, würde die 3 Grund-Einstellungen empfehlen Dim oPrintMgr As DrawingPrintManager Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager sPrinterName = "???????" '
oPrintMgr.Printer = sPrinterName oPrintMgr.NumberOfCopies = 1 ' damit nicht plötzlich 10 AO Plots rausgehen oPrintMgr.AllColorsAsBlack = True ' Falls nur auf Schwarzweißplotter ***************************************************************** oPrintMgr.Rotate90Degrees = False ' setzt keinen Haken bei 90Grad Das rotieren um 90Grad hat nichts mit kPortraitOrientation kLandscapeOrientation zu tun!! MFG VOSTA [Diese Nachricht wurde von VOSTA1 am 02. Feb. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 03. Feb. 2006 07:57 <-- editieren / zitieren --> Unities abgeben:
Hallo Vosta1, ****************************************************************** oPrintMgr.Rotate90Degrees = False ' setzt keinen Haken bei 90Grad ****************************************************************** das ist genau das, was ich suchte !! Danke. U's sind schon bei dir. P.S. Vielleicht kannst du mir nochmal weiterhelfen mit dem 90° gedrehtem Bitmap? ------------------ Gruß Wilfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |