Option Explicit
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
  Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub DruckeForm()
  Dim Bild As Picture, Faktor1!, Faktor2!, Breite%, Höhe%, Korrektur%
  Me.MousePointer = 11
  Clipboard.Clear
  Call keybd_event(44, 0, 0, 0)
  DoEvents
  Call keybd_event(44, 0, 2, 0)
  Set Bild = Clipboard.GetData(vbCFBitmap)
  Clipboard.Clear
  With Printer
  .Orientation = vbPRORLandscape
  .ColorMode = vbPRCMColor
  .ScaleMode = vbPixels
  Breite = .ScaleX(Bild.Width, vbHimetric, vbPixels)
  Höhe = .ScaleY(Bild.Height, vbHimetric, vbPixels)
  'Die Breite und die Höhe des bedruckbaren Bereiches wird zu groß angegeben ( 
  ' vermutlich
  'Drucker und Druckertreiber abhängig) deshalb der Wert Korrektur,
  'damit das Bild vollständig gedruckt wird.
  Korrektur = 30
  Faktor1 = (.ScaleWidth - Korrektur) / Breite
  Faktor2 = (.ScaleHeight - Korrektur) / Höhe
  If Faktor2 < Faktor1 Then
    Faktor1 = Faktor2
  End If
  .PaintPicture Bild, 0, 0, Breite * Faktor1, Höhe * Faktor1
  .EndDoc
  End With
  Set Bild = Nothing
  Me.MousePointer = 0
End Sub