| |
| 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: PDF per VBA (1646 mal gelesen)
|
thomas100 Mitglied Konstrukteur
Beiträge: 80 Registriert: 02.04.2002
|
erstellt am: 17. Dez. 2004 14:05 <-- editieren / zitieren --> Unities abgeben:
Hallo! Folgendes Problem: Mit untenstehenden Makro soll über Free-PDF die Zeichnung gedruckt werden. Jetzt wirds eigenartig: Beim Inventor 8 funktionieren alle Formate (A4 bis A0) ohne Probleme, beim 9er funzt nur bis A2. Sollte es nicht eher umgekehrt sein?? Also ich find das zum und bin *hehe* Anbei der Code: (Hab in mir aus einem Forum kopiert) ******************************************************* Public Sub FileSavePDF() Dim oPrintMgr As DrawingPrintManager For Each s In ThisApplication.ActiveDocument.Sheets s.Activate Start_Zeit = Timer Do While Timer < Start_Zeit + 2 Loop Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager oPrintMgr.NumberOfCopies = 1 oPrintMgr.Printer = "FreePDF XP" PapierFormat = s.Size oPrintMgr.Orientation = kPortraitOrientation Select Case PapierFormat Case 9993 'A0 oPrintMgr.PaperSize = kPaperSizeA0 Case 9994 'A1 oPrintMgr.PaperSize = kPaperSizeA1 Case 9995 'A2 oPrintMgr.PaperSize = kPaperSizeA2 Case 9996 'A3 oPrintMgr.PaperSize = kPaperSizeA3 Case 9997 'A4 oPrintMgr.PaperSize = kPaperSizeA4 End Select Ausrichtung = s.Orientation Select Case Ausrichtung Case 10243 'Hochformat oPrintMgr.Orientation = kPortraitOrientation Case 10242 'Querformat oPrintMgr.Orientation = kLandscapeOrientation End Select Start_Zeit = Timer Do While Timer < Start_Zeit + 5 Loop ThisApplication.ActiveView.WindowState = kMaximize oPrintMgr.SubmitPrint Start_Zeit = Timer Do While Timer < Start_Zeit + 5 Loop Next End Sub
------------------ Grüße aus den schönen Oberösterreich Thomas ------------- Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
yamaha Mitglied Konstrukteur
Beiträge: 384 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 19. Dez. 2004 13:58 <-- editieren / zitieren --> Unities abgeben: Nur für thomas100
Hallo Thomas, also das wundert mich jetzt auch, das es auf INV9 nicht mehr funktioniert. Ich arbeite immer noch mit 8, ist deshalb noch nicht aufgefallen. Habe auch nicht direkt die Lösung oder eine Erklärung für das Phänomen. Probier doch aber troztdem mal dies: Case 9993 'A0 oPrintMgr.PaperSize = kPaperSizeCustom oPrintMgr.PaperHeight = 841 oPrintMgr.PaperWidth = 1189 Kann es nicht direkt testen; vielleicht hilft´s ja. ------------------ Gruß Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
thomas100 Mitglied Konstrukteur
Beiträge: 80 Registriert: 02.04.2002
|
erstellt am: 20. Dez. 2004 09:41 <-- editieren / zitieren --> Unities abgeben:
Vielen Dank, so funzt es Verstehe wer die Eigenarten der DIVA *gg* ------------------ Grüße aus den schönen Oberösterreich Thomas ------------- Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fyodor Ehrenmitglied V.I.P. h.c. Dipl.-Ing.(FH) Maschinenbau
Beiträge: 2669 Registriert: 15.03.2005 DELL Precision 7740 Intel Core i9-9980HK 32 GB RAM NVISIA Quadro RTX4000 Windows 10 Enterprise<P>SolidWorks 2019 SP3.0
|
erstellt am: 30. Sep. 2008 12:59 <-- editieren / zitieren --> Unities abgeben: Nur für thomas100
Hallo! Ich versuche mir gerade aus diversen Code-Schnipseln ebenfalls einen vollautomatischen PDF-Druck-Button zu stricken. Bei dem hier geposteten Makro werden bei mir alle Ausdrucke auf A0 quer gedruckt, obwohl ich für jede Blattgröße die Seitengröße als benutzerdefiniert übergebe. Weiß jemand woran das liegt? ------------------ Cheers, Jochen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fyodor Ehrenmitglied V.I.P. h.c. Dipl.-Ing.(FH) Maschinenbau
Beiträge: 2669 Registriert: 15.03.2005
|
erstellt am: 30. Sep. 2008 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für thomas100
Habe jetzt die benutzerdefinierten Seitengrößen wieder rausgenommen, seither klappt es (wie bei den Vorusern) bis A2 problemlos. A1 und A0 kann ich damit nicht drucken. Auch der Tip von yamaha hilft nicht, die Formate A1 und A0 landen immer auf A4 quer. Gibt es noch eine Möglichkeit, der DIVA mitzuteilen welches Papierformat ich gerne hätte? P.S.: Ich verwende IV2008 ------------------ Cheers, Jochen [Diese Nachricht wurde von Fyodor am 30. Sep. 2008 editiert.] [Diese Nachricht wurde von Fyodor am 30. Sep. 2008 editiert.] [Diese Nachricht wurde von Fyodor am 30. Sep. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fyodor Ehrenmitglied V.I.P. h.c. Dipl.-Ing.(FH) Maschinenbau
Beiträge: 2669 Registriert: 15.03.2005 DELL Precision 7740 Intel Core i9-9980HK 32 GB RAM NVISIA Quadro RTX4000 Windows 10 Enterprise<P>SolidWorks 2019 SP3.0
|
erstellt am: 01. Okt. 2008 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für thomas100
Mittlerweile kann ich auch im Format A1 fehlerfrei drucken, wenn ich die Größenangabe als benutzerdefiniert hinterlege. Gestern ging es noch nicht, ich habe zwischenzeitlich das Programm aber gar nicht mehr angerührt... . A0 funktioniert aber noch immer nicht, es landet immer auf A4. ------------------ Cheers, Jochen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |