visual fox

k_liss
15 de Enero del 2004
Tengo que imprimir unos formularios de visual fox para la entrega de un reporte, estos fueron creados con asistente.

jesus carrillo
15 de Enero del 2004
pega esto en la propiedad click de un boton dentro de tu formulario:

DECLARE INTEGER keybd_event in Win32API INTEGER , INTEGER , INTEGER ,INTEGER
LOCAL vk_snapshot , oWord
vk_snapshot = 44&&44
=Keybd_event(vk_snapshot,0,0,0)

oWord = createobject("word.application")
oWord.documents.add
oWord.Selection.Paste
oWord.ActiveDocument.PrintOut

do while oWord.BackgroundPrintingStatus > 0
doevents()
enddo

oWord.ActiveDocument.close(0)
oWord.Quit