Bruno escribió:
José Manuel,
El Preview hace lo que tu le dices que haga, mira, al crear el formulario 2, en el evento OnCreate asignas al evento OnPreview del objeto Printer una función estática llamada ShowPreview, luego al crear el formulario 3, en el evento OnCreate asignas al evento OnPreview del objeto Printer una nueva función estática, que, aunque se llama igual ShowPreview, está en el tercer fuente. Al hacer esto únicamente tendrás en el evento OnPreview del objeto Printer la última asignación. Haz estos cambios en el ejemplo:
Archivo form2.prg:
-línea 17, pon un comentario:
// Printer:OnPreview := { || ShowPreview( .T. ) }
-línea 45, pon un comentario:
// Test->( DbCloseArea() )
-línea 106, inserta:
Printer:EndDoc()
Printer:OnPreview := { || ShowPreview( .T. ) }
Printer:Preview()
-línea 174, inserta:
Printer:EndDoc()
Printer:OnPreview := { || ShowPreview( .T. ) }
Printer:Preview()
-repite lo mismo para form3.prg
Gracias Bruno, acuerdate que cuando vengas por Fuerteventura te invite a comer a cenar o a lo que haga falta, que una cosa tan simple me haya dado tanto quebradero de cabeza.
Mil gracias, las palabras son promesas, te lo debo.