Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PrintWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As Long
Const PW_CLIENTONLY = &H1
 
Private Sub Timer1_Timer()
Dim Ret As Long
 
Ret = GetForegroundWindow()
 
Me.AutoRedraw = True
If (PrintWindow(Ret, Me.hDC, 0) = True) Then
    Me.Refresh
    Debug.Print "Print Realizada"
    Me.SetFocus
Else
    Debug.Print "Error"
End If
 
Timer1.Enabled = False
 
End Sub