Public Sub MakeScreenshot(ByVal ActiveWindow As Boolean)
   Screen.MousePointer = vbHourglass
  'Der Parameter ActiveWindow legt fest, ob ein Screenshot
  'für das aktuelle Fenster (True) oder für gesamten
  'Windows-Desktop (False)erstellt werden soll
 
  Const KEYEVENTF_KEYUP = &H2
  Const VK_MENU = &H12
  Const VK_SNAPSHOT = &H2C  
  If ActiveWindow Then keybd_event VK_MENU, 0, 0, 0 ''ALT-Taste
  keybd_event VK_SNAPSHOT, 0, 0, 0 ''Druck-Taste
  keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
  If ActiveWindow Then keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
  DoEvents
  frmScreenShot.Width = Screen.Width
  frmScreenShot.Height = Screen.Height
  frmScreenShot.Picture1.Width = frmScreenShot.Width
  frmScreenShot.Picture1.Height = frmScreenShot.Height
  frmScreenShot.Picture1.Top = 0
  frmScreenShot.Picture1.Left = 0
  frmScreenShot.Picture1.Picture = Clipboard.GetData()
  ' Druckauftrag beenden
  Printer.Orientation = vbPRORLandscape
  frmScreenShot.PrintForm
  Printer.Orientation = vbPRORPortrait
  Screen.MousePointer = vbDefault
  MsgBox "Druckauftrag ist fertig", vbInformation, "Meldung"
End Sub