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

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