DECLARE INTEGER keybd_event in Win32API INTEGER , INTEGER , INTEGER , INTEGER
LOCAL vk_snapshot , oWord
*VK_SNAPSHOT 2Ch SYSREQ key starting with Windows 3.0.
vk_snapshot = 44
*Copia toda la pantalla COMPLETE DEL ESCRITORIO al cipboard de Windows
=Keybd_event(vk_snapshot,1,0,0)
*Copia toda la VENTANA DE LA APLICACION ACTIVA al cipboard de Windows
*=Keybd_event(vk_snapshot,0,0,0)
*Instanciar WORD
oWord = createobject("word.application")*Crear un nuevo Documento
oWord.documents.add
*Copiar el CLIPBOARD al nuevo documento
oWord.Selection.Paste
*Imprimir el nuevo documento a la impresora por defecto
oWord.ActiveDocument.PrintOut
*Retardo para que se pueda cerrar WORD sin menajes que indiquen
* trabajos pendientes de impresion
do while oWord.BackgroundPrintingStatus > 0
doevents()
*!* = inkey(.1) &&Usar en VFP 3.0
enddo
*Cerrar documento
oWord.ActiveDocument.close(0)
*Cerrar Word
oWord.Quit
release vk_snapshot , oWord
*!* QuickInfo
*!* Windows NT: Requires version 3.1 or later.
*!* Windows: Requires Windows 95 or later.
*!* Windows CE: Requires version 1.0 or later.
*!* Header: Declared in winuser.h.
*!* Import Library: Use user32.lib.
Crear cuenta