---

Hallo, habe ein kleines Progrämmchen geschrieben zum ausdrucken. Man hat 5 Knöpfe:
• PDF:         PDF erzeugen
• DruckenA4: alles auf A4 drucken
• DruckenA3: A4 --> A4; A3-A0 --> A3
• KombiA4: PDF & DruckenA4
• KombiA3: PDF & DruckenA3

Ihr müsst "XXXXXXX" durch euren Papierdruckernamen ersetzen.
Als PDF-Drucker habe ich PDFCreator genommen. Dort könnt ihr bei den Einstellungen des PDFCreators unter "Automatisches Speichern" unter "Dateiname" "<REDMON_DOCNAME>" eintragen und einen speziellen PDF-Pfad, so funktioniert alles automatisch ohne jede Nachfrage. Natürlich könnt ihr das alles individualisieren.

Was ich noch dazuprogrammieren möchte ist, dass er alle offenen Dokumente druckt und dass er die Dokumente im Quellverzeichnis als PDF speichert bzw. in einem dortigen Unterordner namens "PDF". Bin aber noch Anfänger im Programmieren und habe noch keine Erfahrung. Vielleicht kann mir ja jemand ein paar Tips diesbzgl. geben?

Code:

---

Sub KombiA3()
    PDF
    DruckenA3
End Sub
Sub KombiA4()
    PDF
    DruckenA4
End Sub

Public Sub PDF()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
     
        Dim oDrgDoc As DrawingDocument
        Set oDrgDoc = ThisApplication.ActiveDocument
     
        ' Set reference to drawing print manager
        ' DrawingPrintManager has more options than PrintManager
        ' as it's specific to drawing document
        Dim oDrgPrintMgr As DrawingPrintManager
        Set oDrgPrintMgr = oDrgDoc.PrintManager
        ' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "PDFCreator"
     
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA2
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA1
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA0
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
     
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.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
    End If
End Sub
Public Sub DruckenA3()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
     
        Dim oDrgDoc As DrawingDocument
        Set oDrgDoc = ThisApplication.ActiveDocument
     
        ' Set reference to drawing print manager
        ' DrawingPrintManager has more options than PrintManager
        ' as it's specific to drawing document
        Dim oDrgPrintMgr As DrawingPrintManager
        Set oDrgPrintMgr = oDrgDoc.PrintManager
        ' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "XXXXXXX"
     
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
     
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.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
    End If
End Sub
Public Sub DruckenA4()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
     
        Dim oDrgDoc As DrawingDocument
        Set oDrgDoc = ThisApplication.ActiveDocument
     
        ' Set reference to drawing print manager
        ' DrawingPrintManager has more options than PrintManager
        ' as it's specific to drawing document
        Dim oDrgPrintMgr As DrawingPrintManager
        Set oDrgPrintMgr = oDrgDoc.PrintManager
        ' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "XXXXXXX"
     
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
     
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.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
    End If
End Sub

---

Ich wünsch euch viel Spaß und freue mich auf Feedback 

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

---

hallo,
ich würde es so gerne mal probieren ,
ich weiß aber leider nicht wie ich es einzetsen kann bzw. wie ich das auf irgendeine weiße zum laifen bringe.

Kan mir eine dabei helfen.
gibt es eine anweißunf wo das geschrieben steht?
Welcher version?
ich habe 10 und 2009

würde mich freuen.

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

---

Hallo

Ich probier's mal.

1. Falls noch nicht geschehen PDF-Creator hier herunterladen.
2. Mit PDF-Creator einen PDF-Drucker erstellen (Name: PDFCreator)
3. Inventor 2009 öffnen (ob der 10er das folgende schon konnte kann ich nicht sagen)
4. Mit Alt+F11 den VBA-Editor öffnen
5. Im Anwendungsprojekt ein neues Modul einfügen (Name könnte "Drucker" lauten)
6. Den geposteten Code per Copy&Paste in das Modul einfügen.
7. Die XXXXX mit dem Namen deines Papierdruckers ersetzen.
8. Zum Testen, den Cursor in die entsprechende Sub stellen und oben in der Symbolleiste den Play-Knopf drücken.

9. Wenn alles läuft kannst du dir für den jeweiligen Drucker einen Button im Inventor einfügen. Anleitung dazu inkl. eigenem Icon steht hier irgendwo.

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 09. Apr. 2009 editiert.]

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

---

Genau.

Das Programm benutze ich wie man in meiner Sig steht mit IV10. Also kein Problem.

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

---

Hallo Leute,

hab das makro mal bei mir getestet und etwas angeglichen
-A3 und A4 in sw hinzugefügt
-kombi für pdf_farbe und drucker_sw
-beim pdf (freepdf xp) die diversen blätter gedreht

nun ist mir aufgefallen, dass wenn mehrere verschiedengroße blätter in der zeichnung sind, diese mit dem aktiven blattformat im pdf sind

gibts da was, dass er jedes blatt auf die größe prüft?
kann da wer helfen

------------------
mfg Ronald

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

---

Hallo

Code:

---

oDrgPrintMgr.PrintRange = kPrintAllSheets

---

ersetzen durch activesheet und jedes Blatt einzeln aktivieren und drucken. Dann im FreePDF Multidocument nach jedem Blatt anklicken und nach dem Drucken als ein PDF abspeichern. Ganz automatisch geht's mit einfachen Mitteln nicht.

------------------
MfG
RK

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

---

Unbenannt.JPG

Hallo, Anhang ist eine jpg.

Mein Skript nutze ich nun in einer neuen Firma. Nur hier funktioniert das mit dem Drucken nicht mehr. Siehe Fehlermeldung. Unterschied wird sein, dass es sich um einen Netzwerkdrucker handelt und nicht mehr um einen lokalen Drucker mit einer IP als Anschluss.

Was muss man ändern?!

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

---

Hallo,

gibts es eine möglichkeit für den Drucker, den in Windows verwendeten Standarddrucker abzufragen und diesen dann auch zu verwenden?

MfG

Lu05

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

---

Hallo

@Lu05
Code lesen würde helfen.

Zitat:

---

' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "PDFCreator"

---

@Schattenbacke
Kannst du mal versuchen, statt nur dem Druckernamen, mal den Namen der Druckerwarteschlange zu benutzen. Ich vermute euer Netzwerkdrucker hängt nicht direkt im Netz. Schau mal in den Druckereigenschaften unter Anschluß, ob dort sowas wie "\\printserver\druckername" steht und teste das mal.

------------------
MfG
RK

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

---

Gut vielleicht hab ich mein Problem nicht ganz so ausführlich erklärt. Sorry.

In meinem Betrieb gibts mehrere Netzwerkdrucker und in jeder Abteilung wird ein anderer Verwendet somit braucht jeder das auf sich
angepasse Druck-Makro.

Und es wäre einfach schon wenn man eins für alle nehmen könnte in dem ich nicht jeden Netzwerkdrucker extra auswähle sondern es selbst den in Windows verwendeten Standartdrucker des jeweiligen PCŽs nimmt.

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

---

Hallo

Ich hab's doch schon fett hervorgehoben. Gib keinen Drucker in deinem Druckmakro an und der PrintManager verwendet den Windows-Standarddrucker.

------------------
MfG
RK

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

---

@rkauskh

Danke!! Es geht  Genau wie du geschrieben hast. War zwar etwas schwierig ohne Rechte das rauszufinden, aber letztendlich habe ich es geschafft. Toll

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

---

HabŽs versucht aber bekomm leider nen Laufzeitfehler Ž5Ž
Ungültiger Prozeduraufruf oder ungültiges Argument.
Vielleicht noch ne andere Idee?

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

---

Hallo zusammen,
ich weiß dieser Beitrag ist schon sehr alt aber ich habe zu diesem noch eine Frage. Und zwar schaffe ich es nicht dem Printmanager zu sagen das er das Blatt um 90 grad drehen soll

Vielen Dank für alle Hilfe

MFG

------------------
MFG

BlueJay

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hi

Code:

---

oDrgPrintMgr.Rotate90Degrees = True

---

------------------
MfG
RK

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Danke hat geklappt - nur erkennt er noch die Übergröße A2 meines Printers nicht - auch nicht mit der Funktion

oDrgPrintMgr.PaperSize = kPaperSizeA2Oversize

und auch nicht mit der custom papier größe??

Danke noch mal

------------------
MFG

BlueJay

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

---

Guten Morgen zusammen,
ich wollte noch einmal kurz das Problem erläutern was ich nicht gelöst bekomme. Wir haben einen Drucker der mit dem Formaten A2 und A1 in Übergröße druckt. Starte ich das Druckmakro scheint er dieses Format nicht zuerkennen denn er zentriert die Zeichnung nicht auf dem Papier?

Ich habe es schon versucht mit der Eingabe von spezifischen Blattformaten

                oDrgPrintMgr.PaperSize = kPaperSizeCustom
                oDrgPrintMgr.PaperHeight = 45
                oDrgPrintMgr.PaperWidth = 64.9

und mit der funktion
               
                oDrgPrintMgr.PaperSize = kPaperSizeA2Oversize

beides scheint nicht zu funktionieren - was mache ich falsch oder gibt es noch andere Befehle mit dem ich die Zeichnung auf dem Papier ausrichten bzw. Zentrieren kann?

Ich Danke für alle Hilfen

MFG

------------------
MFG

BlueJay

[Diese Nachricht wurde von Bluejay am 05. Jan. 2012 editiert.]

[Diese Nachricht wurde von Bluejay am 06. Jan. 2012 editiert.]

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

---

Hallo zusammen,
ich wollte dieses Plugin auch als erleichterung beim Drucken nutzen, habe aber das Problem, dass immer der zuletzt verwendete Drucker genommen wird. Ich habe auch einen direkten Drucker angegeben aber es funktioniert nicht. Schön wäre, wenn er einfach den in Windows definierten Standarddrucker nehmen würde. Hat vielleicht jemand eine Idee.

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Zitat:

---

' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "PDFCreator"

---

die dritte Zeile einfach auskommentieren, dann sollte es gehen:
        'oDrgPrintMgr.Printer = "PDFCreator"

------------------
Gruß, Gandhi
"Dem guten Frager ist schon halb geantwortet" - Friedrich Nietzsche

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

---

Danke für die schnelle Antwort,
aber genau das habe ich probiert, es funktioniert nicht.
Es funktioniert solange der genante Drucker im Printmanager im Inventor aktiv ist. Wenn ich aber noch eine andere Rutine für einen Plotter habe, wird der im Printmanager auf Aktiv gesetzt und schon druckt der immer darauf.

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

---

Moin,

hätte einer eine Idee, wie man das Skript so umbauen kann, dass er mit einem Knopfdruck einen Export in eine PDF in ein bestimmtes Verzeichnis ohne Nachfrage macht?

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

---

Kurzer Nachtrag ...

im PDF-Creator kann man es einstellen, dass er es automatisch in einem bestimmten Ordner mit bestimmten Namen speichert.
Ansonsten kann man ja die Inventoreigene Funktion für PDF-Export benutzen. Hierfür habe ich ein Skript bereitgestellt:

Step - und PDF-Export in explizites Verzeichnis - leicht änderbar für andere Typen

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