ハードコピー

PrintScreen キーにて画面をコピー可能である．
それを自動で印刷する．

コピーしたらクリップボードが変更されるので，それを検知する．
クリップボードの内容をフォームにコピーしてそれを印刷する．

Do While(1)
  If Clipboard.getformat(vbCFBitmap) Then
    Form1.WindowState = 2                  'フォームを最大表示
    Form1.Picture = Clipboard.GetData()    'Clipboard からコピー
    Form1.PrintForm                        'フォーム印刷
    Form1.WindowState = 1                  'フォームを最小表示
  End if
  DoEvents
Loop

参照
画面をクリップボードにコピー