FiveTech Support Forums

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é

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