Hallo Ole,
ich arbeite mit VBA. Hier ein Auszug aus meinem Makro.
Sub CATMain()
On Error GoTo fehler
Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument
Dim DrwSheets As DrawingSheets
Set DrwSheets = DrwDocument.Sheets
Dim DrwSheet As drawingsheet
Set DrwSheet = DrwSheets.ActiveSheet
Set pageSetup1 = DrwSheet.PageSetup
pageSetup1.Orientation = catPaperPortrait
pageSetup1.LeftMargin = 3.5
pageSetup1.RightMargin = -3.5
pageSetup1.TopMargin = 0
pageSetup1.BottomMargin = 0
pageSetup1.MaximumSize = True
pageSetup1.BannerPosition = catBannerPositionNone
pageSetup1.Quality = catPrintQualityDraft
pageSetup1.color = catColorMonochrome
Papierformate.Show
If nam = "Rahmen A4 hoch sw.CATDrawing" Then
pageSetup1.PaperSize = catPaperA4
pageSetup1.Rotation = CatImageRotation0
CATIA.ActivePrinter = ATIA.Printers.Item("\\fileserver\Kyocera Mita FS-6020")
End If
DrwSheet.PrintOut
Exit Sub
fehler:
End Sub
Gruß
bewnc
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP