preview: cerrar después de imprimir

[pedroluis]

Buenas tardes:
Tengo el nuevo fw v.17.09
Cuando hago el preview para imprimir una factura, aparece el preview como corresponde e imprime la factura.
Hasta ahí todo bien.
Lo que necesitaría saber es como hacer para que cuando termine la impresión el preview se cierre sólo sin usar el icono
de "salir"
Muchas gracias.
Pedro Lavallén.

[Garbi]

Puedes modificar y enlazar rpreview.prg en tu aplicación y después de la función de imprimir cierras la ventana con la función de salir

Code: Select all

::oWnd:End()

[pedroluis]

¿ No habrá otra manera, sin tener que modificar el rpreview.prg ?
Porque en versiones anteriores, vi que se cerraba solo.

[pedroluis]

Muy amable por tu respuesta !
Pero, sería mucho pedir me digas exactamente dentro del código del rpreview.prg, dónde
poner el ::oWnd:End()
Gracias !
Pedro.

[Garbi]

Yo lo pondria aqui :

Code: Select all

DEFINE BUTTON oBtn OF oBar GROUP ;
         MENU    ::PrintersMenu() ;
         MESSAGE FWString( "Print actual page" );
         ACTION  (If( ValType( ::bPrint ) == 'B',( Eval( ::bPrint, Self ), ::PrintPage() ), ::oWnd:End()) ;
         TOOLTIP FWString( "Print" )
 

Es decir, la ultima acción después de pulsar sobre el icono de la impresora. No he hecho la prueba pero lo primero que se me ocurre es ahi.

[pedroluis]

Al compilar me tira el siguiente error:
rpreview.prg(351) Error E0030 Syntax error: "syntax error at 'TOOLTIP'"

[Garbi]

si he escrito mal el paréntesis, prueba asi

Code: Select all

 DEFINE BUTTON oBtn OF oBar GROUP ;
         MENU    ::PrintersMenu() ;
         MESSAGE FWString( "Print actual page" );
         ACTION ( If( ValType( ::bPrint ) == 'B', Eval( ::bPrint, Self ), ::PrintPage() ),::oWnd:End()) ;
         TOOLTIP FWString( "Print" )
 

[pedroluis]

Funcionó perfecto !
eras un Campeón !
Gracias por todo !
Pedro.

[Garbi]

Me alegro, a mandar.
Estamos todos para ayudarnos.

[cnavarro]

Otra forma, sin modificar la clase

http://forums.fivetechsupport.com/viewt ... 84#p209484