Dim x1 As Long
  Dim x2 As Long
  Dim y1 As Long
  Dim y2 As Long
 
  With Printer
    .ScaleMode = vbPixels
 
    ' Position des Ausdrucks
    x1 = 10: y1 = 10
 
    ' Größe der Grafik
    x2 = x1 + .ScaleX(Picture1.ScaleWidth, Picture1.ScaleMode, .ScaleMode)
    y2 = y1 + .ScaleY(Picture1.ScaleHeight, Picture1.ScaleMode, .ScaleMode)
 
    ' Grafik drucken
    .PaintPicture Picture1.Picture, x1, y1
 
    ' Rahmen
    Printer.Line (x1 - 1, y1 - 1)-(x2, y2), vbRed, B
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de