'MsgBox "Modellbereich drucken", vbOKOnly
            ThisDrawing.ActiveSpace = acModelSpace
            ZoomExtents
            ge_pUL = ThisDrawing.GetVariable("EXTMIN")
            ge_pOR = ThisDrawing.GetVariable("EXTMAX")  ' Zeichnungsgrenzen'
            Set Layout = ThisDrawing.ModelSpace.Layout
            Layout.ConfigName = "HP3500.1.pc3"  
            ge_hoehe = ge_pOR(1) - ge_pUL(1)            ' plot Höhe'
            ge_breite = ge_pOR(0) - ge_pUL(0)           'plot Breite'
            If ge_hoehe > ge_breite Then
              Bla Bla ...       ' je nach dem ob höhe oder breite größer - Rotation und Plotmaßstab ermitteln'
            EndIf
            
            ...
            Layout.StandardScale = acVpCustomScale   ' Maßstab Benutzerdefiniert'
            Layout.SetCustomScale 1, ge_Faktor       ' maßstab 1 : Faktor' 
            ThisDrawing.Plot.NumberOfCopies = 1      'Anzahl Kopieen' 
            
            
            ...
            
            Set ge_textobj = ThisDrawing.ModelSpace.AddText(ge_dateiname & "  Maßstab 1 : " & ge_Faktor * 1000, ge_einfPunkt, (ge_Faktor * 1.5)) 'Zeichnungsbeschriftung'
           
            Layout.SetWindowToPlot ge_mUL, ge_mOR    ' Plotfenster festlegen'
            Layout.PlotType = acWindow               ' Plotbereich = Fenster'
            
            Layout.CenterPlot = True                 ' Plot zenriert'


            'ThisDrawing.Plot.DisplayPlotPreview acFullPreview   'plotvoransicht'
'
        
            ThisDrawing.Plot.PlotToDevice "HP3500.1.pc3"          'plot auf drucker HP3500.1'