visual fox
Tengo que imprimir unos formularios de visual fox para la entrega de un reporte, estos fueron creados con asistente.
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
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