Imprimir PANTALLA desde VFP
Por sotero (#866) a las 14:20 del 11-05-2001  
 

Poner este código en el CLICK de un BOTON en un FORMULARIO:
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()  && Make sure you leave de OS enough time to update de property
	*!* = inkey(.1)  &&Use inkey if you are running under 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.