Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  PDF

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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



Sehen Sie sich das Profil von Smoke2004 an!   Senden Sie eine Private Message an Smoke2004  Schreiben Sie einen Gästebucheintrag für Smoke2004

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von rtend12 an!   Senden Sie eine Private Message an rtend12  Schreiben Sie einen Gästebucheintrag für rtend12

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 22. Okt. 2007 22:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Smoke2004 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Smoke2004 an!   Senden Sie eine Private Message an Smoke2004  Schreiben Sie einen Gästebucheintrag für Smoke2004

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von rtend12 an!   Senden Sie eine Private Message an rtend12  Schreiben Sie einen Gästebucheintrag für rtend12

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 23. Okt. 2007 17:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Smoke2004 10 Unities + Antwort hilfreich

Geht es bis A2?

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

Smoke2004
Mitglied



Sehen Sie sich das Profil von Smoke2004 an!   Senden Sie eine Private Message an Smoke2004  Schreiben Sie einen Gästebucheintrag für Smoke2004

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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



Sehen Sie sich das Profil von Smoke2004 an!   Senden Sie eine Private Message an Smoke2004  Schreiben Sie einen Gästebucheintrag für Smoke2004

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von THPET an!   Senden Sie eine Private Message an THPET  Schreiben Sie einen Gästebucheintrag für THPET

Beiträge: 31
Registriert: 01.03.2004

erstellt am: 24. Dez. 2007 17:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Smoke2004 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Smoke2004 an!   Senden Sie eine Private Message an Smoke2004  Schreiben Sie einen Gästebucheintrag für Smoke2004

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ja aber diese Version hat leider bei mir nicht funktioniert aber trotzdem danke

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

RajaSnow
Mitglied



Sehen Sie sich das Profil von RajaSnow an!   Senden Sie eine Private Message an RajaSnow  Schreiben Sie einen Gästebucheintrag für RajaSnow

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Smoke2004 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Smoke2004 an!   Senden Sie eine Private Message an Smoke2004  Schreiben Sie einen Gästebucheintrag für Smoke2004

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz