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 Enum Ausrichtung
 Hochformat = 1
 Querformat = 2
End Enum
 
Private Sub FormToPrinter(Optional ByVal bActiveWindow As Boolean = True, _
  Optional Orientation As Ausrichtung = Hochformat)
 
  Const KEYEVENTF_KEYUP = &H2
  Const VK_MENU = &H12
  Const VK_SNAPSHOT = &H2C
 
  If bActiveWindow Then keybd_event VK_MENU, 0, 0, 0
 
  keybd_event VK_SNAPSHOT, 0, 0, 0
  keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
 
  If bActiveWindow Then keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
 
  DoEvents
 
  Printer.Orientation = Orientation
  Printer.PaintPicture Clipboard.GetData, 0, 0, Printer.ScaleWidth, _
    Printer.ScaleHeight
  Printer.EndDoc
End Sub
 
Private Sub Command1_Click()
 FormToPrinter True, Querformat
End Sub