Impresion de un Dialogo

[juanjogascem]

Feliz Navidad a todos.

Tengo el siguiente problema: Tengo un programa que hace calculo de costes en pantalla y un boton que al presionar imprimia el dialogo mostado.
Código:
REDEFINE BUTTON ID 553 OF oDlg ; // Imprimir
ACTION ( oPrinter := PrintBegin(rtrim( COSTES->cDetalle), .T., .F., ),;
oPrinter:SetPortrait(),;
PageBegin(),;
oDlg:Print( oPrinter, 50, 50, 7 ),;
PageEnd(),;
PrintEnd() ;
)

Al pasar la aplicación a xHarbour solo imprime el fondo del dialogo y los get introducidos por el usuario, pero los SAYS no aprecen ninguno.

¿Alguna idea de como solucionar esto?


Un saludo
Juan José

[juanjogascem]

Bueno, pues parece resuelto, revisé el ejemplo testprn y se me ocurrio crear una funcion y pasarle como paramentro el Dialogo.

En fin, no se que diferencia puede haber con el codigo anterior. Además hacia cosas raras. A veces imprimia algo y otras veces nada.


STATIC Function Imprimir( oDlg )
********************************
local oPrn


PRINT oPrn NAME rtrim( COSTES->cDetalle )
PAGE
oDlg:Print( oPrn, 50, 50, 3.60 )
ENDPAGE
ENDPRINT
return NIL