Code:
Sub CATMain()' Retrieve the active document
Dim oDocument As Document
Set oDocument = CATIA.ActiveDocument
' Test the document's type, if it is not a drawing document the macro stops
If TypeName(oDocument) = "DrawingDocument" Then
Dim oDrawingDocument As DrawingDocument
Set oDrawingDocument = oDocument
Else
MsgBox "This macro can be run with a drawing document only."
Exit Sub
End If
' Retrieve the active sheet of the document
Dim oSheet As DrawingSheet
Set oSheet = oDrawingDocument.Sheets.ActiveSheet
' Retrieve the selection of the document
Dim oSelection 'As Selection
Set oSelection = oDrawingDocument.Selection
' Clear the selection
oSelection.Clear
' Define the coordinates of the print area's point
Dim XPrintArea As Double
Dim YPrintArea As Double
Dim WidthPrintArea As Double
Dim HeightPrintArea As Double
XPrintArea = 10
YPrintArea = 10
' Define the width and height of the print area
WidthPrintArea = 291
HeightPrintArea = 210
' Define and activate the print area of the drawing document
Dim oPrintArea As PrintArea
Set oPrintArea = oSheet.PrintArea
oPrintArea.SetArea XPrintArea, YPrintArea, WidthPrintArea, HeightPrintArea
oPrintArea.ActivationState = True
' Run the "Visualize Print Area" command from its id, the sheet must be selected before !
oSelection.Add oSheet
CATIA.StartCommand "CATDrwVisualizePrintAreaHdr"
oSelection.Clear
CATIA.ActivePrinter = CATIA.Printers.Item("Microsoft Print to PDF")
oSheet.PrintOut 'Druckt das gesamte Blatt
'oPrintArea.PrintOut 'gibt eine Fehlermeldung aus.
End Sub