Dim Dat1$, TmpPic As StdPicture, Fkt1!, Fkt2!
  Dim QuellBreite!, QuellHoehe!, ZielBreite!, ZielHoehe!
 
  Dat1 = "C:\EinBild.jpg" ' Pfad eines Bildes
  If Dir$(Dat1) = "" Then
    MsgBox "Datei nicht gefunden:" & vbCr & Dat1, vbExclamation + vbOKOnly
    Exit Sub
  End If
  Me.MousePointer = vbHourglass
  Set TmpPic = LoadPicture(Dat1)
  QuellBreite = Int(0.5 + Me.ScaleX(TmpPic.Width, vbHimetric, vbPixels))
  QuellHoehe = Int(0.5 + Me.ScaleY(TmpPic.Height, vbHimetric, vbPixels))
  With Printer
    If QuellBreite > QuellHoehe Then
      .Orientation = vbPRORLandscape
    Else
      .Orientation = vbPRORPortrait
    End If
    .ScaleMode = vbPixels
    Fkt1 = .ScaleWidth / QuellBreite
    Fkt2 = .ScaleHeight / QuellHoehe
    If Fkt2 < Fkt1 Then Fkt1 = Fkt2
    ZielBreite = QuellBreite * Fkt1
    ZielHoehe = QuellHoehe * Fkt1
    .PaintPicture TmpPic, (.ScaleWidth - ZielBreite) / 2, _
      (.ScaleHeight - ZielHoehe) / 2, ZielBreite, ZielHoehe
    .EndDoc
  End With
  Set TmpPic = LoadPicture()
  Me.MousePointer = vbDefault

Gruss,

Zardoz