como imprimo pantalla y lo pegas en word (a trav茅s de c贸digo)
loco otra vez
18 de Febrero del 2004
como puedo pasar los datos o copiar y pegar elos datos de todos mis cuadros de texto a un doc de word, o en su caso pasar los datos al doc de word, necesito el codigo gracias
sdemingo
18 de Febrero del 2004
Hola,
mete esto en un formulario el cual necesita un bot贸n llamado command1
Private Sub Command1_Click()
Dim w As Object
Set w = CreateObject("Word.Application")
w.Documents.Add
keybd_event VK_SNAPSHOT, 1, 0, 0
w.Selection.Paste
w.ActiveDocument.SaveAs FileName:="c:captura.doc"
w.Application.Quit
Set w = Nothing
End Sub
y mete esto en un m贸dulo en el mismo proyecto
Option Explicit
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Global Const VK_SNAPSHOT = &H2C
Saludos
sdemingo
mete esto en un formulario el cual necesita un bot贸n llamado command1
Private Sub Command1_Click()
Dim w As Object
Set w = CreateObject("Word.Application")
w.Documents.Add
keybd_event VK_SNAPSHOT, 1, 0, 0
w.Selection.Paste
w.ActiveDocument.SaveAs FileName:="c:captura.doc"
w.Application.Quit
Set w = Nothing
End Sub
y mete esto en un m贸dulo en el mismo proyecto
Option Explicit
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Global Const VK_SNAPSHOT = &H2C
Saludos
sdemingo
LOCO
18 de Febrero del 2004
GRACIAS ME HA SERVIDO DE MUCHO, SOLO QUE QUIERO DOS CUADROS DE TEXTO QUE NO APARECEN EN LA PANTALLA QUE SE PEGA EN WORD, COMO LOS PASO PARA QUE SE VEAN EN EL DOC DE WORD, YA QUE ESO TEXT ESTAN OCULTOS
Y MUCHISIMAS GRACIAS
Y MUCHISIMAS GRACIAS