agrego:
Código [Seleccionar]
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm
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
CitarTienes instalados los compiladores de 64 bit?yo cuando instale, instale todo (creo), tengo instaladads un par de herramientas de vs2008 x64, asi que quiero creer que si.
Citardará información incorrecta, porque está corriendo windows desde d:\