image.Picture = Clipboard.GetData()

PrintPictureToFitPage Printer, image.Picture
         Printer.EndDoc

 
  Sub PrintPictureToFitPage(Prn As Printer, pic As Picture)
       Const vbHiMetric As Integer = 8
       Dim PicRatio As Double
       Dim PrnWidth As Double
       Dim PrnHeight As Double
       Dim PrnRatio As Double
       Dim PrnPicWidth As Double
       Dim PrnPicHeight As Double
 
         ' Entscheidet ob hochkant oder querkant und setzt die Orientation
 
         If pic.Height >= pic.Width Then
            Prn.Orientation = vbPRORPortrait   
         Else
            Prn.Orientation = vbPRORLandscape  
         End If
 
         'Verhältnisbererechnng (ratio)
         PicRatio = pic.Width / pic.Height
 
         'Berechnung des Druck-Bereichs
         PrnWidth = Prn.ScaleX(Prn.ScaleWidth, Prn.ScaleMode, vbHiMetric)
         PrnHeight = Prn.ScaleY(Prn.ScaleHeight, Prn.ScaleMode, vbHiMetric)
 
         ' Und Das Druck-Bereichsverhältniss  
         PrnRatio = PrnWidth / PrnHeight
 
         ' Scalieren
         If PicRatio >= PrnRatio Then
            ' Scale picture to fit full width of printable area
            PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, Prn.ScaleMode)
            PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, vbHiMetric, _
               Prn.ScaleMode)
         Else
            ' Scale picture to fit full height of printable area
            PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, Prn.ScaleMode)
            PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, vbHiMetric, _
               Prn.ScaleMode)
         End If
 
         ' Drucken
         Prn.PaintPicture pic, 0, 0, PrnPicWidth, PrnPicHeight
         Prn.EndDoc
      End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)