| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: PDF (2714 mal gelesen)
|
Smoke2004 Mitglied
Beiträge: 21 Registriert: 19.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 22. Okt. 2007 14:41 <-- editieren / zitieren --> Unities abgeben:
Hallo ich weis ich bin nervig. Habe da einmal eine Frage zum FreePDF XP Wir haben seit kurzen auf Windows XP 64 Bit umgestellt und jetzt habe wir das Problem das wir mit den Makro welches ich von diesem Forum habe nicht mehr funktioniert! kennt irgendwer dieses Problem und gibt es da schon eine lösung! Hier code: 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 = kPaperSizeCustom oPrintMgr.PaperHeight = 841 oPrintMgr.PaperWidth = 1189 Case 9994 'A1 oPrintMgr.PaperSize = kPaperSizeCustom oPrintMgr.PaperHeight = 594 oPrintMgr.PaperWidth = 841 Case 9995 'A2 oPrintMgr.PaperSize = kPaperSizeCustom oPrintMgr.PaperHeight = 420 oPrintMgr.PaperWidth = 594 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 Vielen Dank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 22. Okt. 2007 22:32 <-- editieren / zitieren --> Unities abgeben: Nur für Smoke2004
Hallo Smoke2004, wie offt muß man dir eigentlich klar machen wie es für alle Beteiligten leichter ist eine Lösung für ein Problem zu finden? Man muß dem Forum sagen wo dass Problem ist? Bei welcher Codezeile gibt es ein Problem? Und ich hoffe es ist nicht wieder ein Beispiel und nur so und... Gruß Reinhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Smoke2004 Mitglied
Beiträge: 21 Registriert: 19.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 23. Okt. 2007 07:41 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen. Als erstes wollte ich mich für meine unklare Problem Beschreibung entschuldigen. Also zu meinen Problem: Habe mir diesen Programmcode von diesem Forum kopiert, funktioniert auch recht gut bei Windows Xp (32Bit Version)Rechnern mit Inventor 2008. Nur wir sind seit kurzer Zeit auf die Version Windows XP 64Bit umgestiegen und da funktioniert es überhaupt nicht mehr. Wenn ich zum Beispiel eine Zeichnung mit A1 so ausdrucken will schneittet er mir alles zusammen sprich er macht mir eine A3 Zeichnung draus. Meine Idee war es die Werte der einzelnen Formate zu übergeben nur ich bringe es nicht zusammen das er auch diese Werte übergibt. wir verwenden FreePDF XP. Kannst du mir bitte sagen wie ich das lösen kann. Ich vermute das es irgendwas mit den FreePDF XP zutun hat den wenn ich die Formate per Hand auswähle Sprich ich möchte z.B eine A1 Zeichnung ausdrucken funktioniert es auch nicht ich muss die Formate Benutzerdefiniert eingeben. Kann ich diese Eingabe mittels Makro machen, wenn ja wie übergebe iche meine Werte. Vielen Dank im Voraus! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 23. Okt. 2007 17:16 <-- editieren / zitieren --> Unities abgeben: Nur für Smoke2004
|
Smoke2004 Mitglied
Beiträge: 21 Registriert: 19.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 24. Okt. 2007 08:04 <-- editieren / zitieren --> Unities abgeben:
Nein leider nur bis A3. Es hat vorher mit der Windows Xp 32bit Version super funktioniert nur seit wir auf Windows Xp 64bit umgestiegen sind geht es nicht mehr. Jetzt Frage ich mich ob es am Programm liegt oder am FreePDFXP. Kannst du mir sagen wie man PostScript Custom Page Size zugreifen kann, habe mir gedacht wenn ich die Werte der einzelnen Formate eintragt müsste es auch funktioneren oder was meinst du. Vielen Dank das du mir hilfst. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Smoke2004 Mitglied
Beiträge: 21 Registriert: 19.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 30. Okt. 2007 15:51 <-- editieren / zitieren --> Unities abgeben:
Guten Tag @all! Zu meinen Problem nochmal habe jetzt eine brauchbare Lösung für mein Problem mit den Formaten gefunden.Ich verwende jetzt einen neuen Treiber für mein FreePDF XP (Verwende den gleichen wie bei PDFCreator)und jetzt funktioniert! Habe den code noch etwas erweitert sprich habe die funktion scalemode90gard noch eingebaut! Danke für eure unterstützung Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
THPET Mitglied Dipl Ing Schiffbau Meerestechnik
Beiträge: 31 Registriert: 01.03.2004
|
erstellt am: 24. Dez. 2007 17:01 <-- editieren / zitieren --> Unities abgeben: Nur für Smoke2004
Moin, bitte schaue auf meine Antwort vom 24.12.2007 16:52 in einem anderen Beitrag dieses Forums... If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then Dim oDrgPrintMgr As DrawingPrintManager Set oDrgPrintMgr = ThisApplication.ActiveDocument.PrintManager oDrgPrintMgr.PrintRange = kPrintCurrentSheet oDrgPrintMgr.Rotate90Degrees = False 'oDrgPrintMgr.TilingEnabled = False oDrgPrintMgr.Printer = "PDCreator" hier den richtigen Drucker eintagen.. oDrgPrintMgr.ScaleMode = kPrintFullScale If ComboBoxDruckFarbe.Value = "S/W Drucken" Then oDrgPrintMgr.AllColorsAsBlack = True Else oDrgPrintMgr.AllColorsAsBlack = False End If On Error Resume Next Select Case ThisApplication.ActiveDocument.ActiveSheet.Size Case kA4DrawingSheetSize oDrgPrintMgr.PaperSize = kPaperSizeA4 Case kA3DrawingSheetSize oDrgPrintMgr.PaperSize = kPaperSizeA3 Case kA2DrawingSheetSize oDrgPrintMgr.PaperSize = kPaperSizeA2 Case kA1DrawingSheetSize oDrgPrintMgr.PaperSize = kPaperSizeA1 oDrgPrintMgr.Rotate90Degrees = True Case kA0DrawingSheetSize oDrgPrintMgr.PaperSize = kPaperSizeA0 oDrgPrintMgr.Rotate90Degrees = True Case Else ' Andere Werte. Debug.Print "ungültiges Papierformat" End Select Select Case ThisApplication.ActiveDocument.ActiveSheet.Orientation Case kLandscapePageOrientation oDrgPrintMgr.Orientation = kLandscapeOrientation Case kPortraitPageOrientation oDrgPrintMgr.Orientation = kPortraitOrientation Case Else ' Andere Werte. Debug.Print "ungültige Orientierung" End Select oDrgPrintMgr.SubmitPrint Else Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Smoke2004 Mitglied
Beiträge: 21 Registriert: 19.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 07. Jan. 2008 13:41 <-- editieren / zitieren --> Unities abgeben:
|
RajaSnow Mitglied
Beiträge: 25 Registriert: 27.11.2007 Windows XP Professional SP2, X86, 3 GHz, 2 GB RAM, NVIDIA Quadro FX1100, Inventor 10
|
erstellt am: 08. Jan. 2008 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für Smoke2004
Hallo Smoke2004, ich habe dein Marco eingebaut. Es funktioniert, aber nicht ganz richtig. Jenach der Größe von der Zeichnung druckt der Marco mal nur ein Ausschnitt von der gesamten Zeichnung, mal verkleinerte Zeichnung. Ich vermutet, es liegt daran, daß das Maßstab und das Papierformat nicht richtig ausgewählt werden. Hast du eine Idee, warum so ist? Oder weil ich Inventor 10 noch habe? mfg Raja Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Smoke2004 Mitglied
Beiträge: 21 Registriert: 19.09.2007 Inventor 2008 SP1 Dell Precision PWS380 Intel(R) Pentium(R) CPU 3.20GHz 3.19GHz, 3,50GB RAM<P>Windows XP Pro Version 2002 SP2
|
erstellt am: 11. Jan. 2008 11:16 <-- editieren / zitieren --> Unities abgeben:
Hallo alse das makro was ich im einsatz habe schaut so aus 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 = kPaperSizeA0Oversize oPrintMgr.ScaleMode = kPrintBestFitScale oPrintMgr.Rotate90Degrees = True Case 9994 'A1 oPrintMgr.PaperSize = kPaperSizeA1Oversize oPrintMgr.ScaleMode = kPrintBestFitScale oPrintMgr.Rotate90Degrees = True 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
________ Ich habe freepdf im einsatz und Inventor 2008 im einsatz ich hoffe es hilft dir etwas weiter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |