---

Hallo,

gibt es eine Möglichkeit das Papierformat (A0,A1,A2...) per Makro, Sript oder VBA erkennen zu lassen und den entsprechenden Plotter mit den jeweileigen Einstellung dann einstellen zu lassen?

Danke

Georg

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

---

Hallo
Ich habe es folgendermaßen gelöst:

Language="VBSCRIPT"
Sub CATMain()
Dim CATIA As CATIA.Application
Set CATIA = CreateObject("CATIA.Application")
Dim doc As Documents
Set doc = CATIA.Documents

If doc.Count = 0 Then Exit Sub
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
n = 0
Do
n = n + 1
drawingSheets1.Item(n).Activate

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

BlattFormat = drawingSheet1.PaperSize

If BlattFormat = 6 Then
CATIA.Application.ActivePrinter = CATIA.Printers.Item("Druckername")
drawingSheet1.PageSetup.PaperSize = catPaperA4
drawingSheet1.PageSetup.Color = catColorMonochrome
ElseIf BlattFormat = 5 Then
CATIA.Application.ActivePrinter = CATIA.Printers.Item("Druckername")
drawingSheet1.PageSetup.PaperSize = catPaperA3
drawingSheet1.PageSetup.Color = catColorMonochrome
ElseIf BlattFormat = 3 Then
CATIA.Application.ActivePrinter = CATIA.Printers.Item("Druckername")
drawingSheet1.PageSetup.PaperSize = catPaperA1
drawingSheet1.PageSetup.Orientation = catPaperBestFit
drawingSheet1.PageSetup.Color = catColorMonochrome
ElseIf BlattFormat = 4 Then
CATIA.Application.ActivePrinter = CATIA.Printers.Item("Druckername")
drawingSheet1.PageSetup.PaperSize = catPaperA2
drawingSheet1.PageSetup.Orientation = catPaperPortrait
drawingSheet1.PageSetup.Color = catColorMonochrome
End If
drawingSheet1.PrintOut

Loop Until n = drawingSheets1.Count

End Sub

Vielleicht kannst damit was anfangen!

------------------
Grüße TStone
  "Respektiere die Macht der Worte, wähle sie mit Bedacht!"

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

---

Hallo TStone,

Super. Vielen Dank. Ist genau das was ich gesucht habe.

Grüße

Georg

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