Option Explicit
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
  ByVal bScan As Byte, ByVal dwFlags&, ByVal dwExtraInfo&)
 
Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2
 
Private Sub Command1_Click()
 
Dim U&
 
Form2.SetFocus
For U = 0 To 1
  DoEvents
  Clipboard.Clear
  Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
  DoEvents
  Call keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0)
  Printer.PaintPicture Clipboard.GetData(vbCFBitmap), 0, Printer.ScaleHeight / _
    2 * (1 - U), Printer.ScaleWidth, Printer.ScaleHeight / 2
  Clipboard.Clear
  Form1.SetFocus
Next U
Printer.EndDoc
 
End Sub

Gruss,

Zardoz