FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour preview: cerrar después de imprimir
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
preview: cerrar después de imprimir
Posted: Fri Jan 26, 2018 10:53 PM

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.

Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Re: preview: cerrar después de imprimir
Posted: Sat Jan 27, 2018 12:34 PM
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 (fw): Select all Collapse
::oWnd:End()
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: preview: cerrar después de imprimir
Posted: Sun Jan 28, 2018 02:00 AM

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

Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: preview: cerrar después de imprimir
Posted: Mon Jan 29, 2018 10:00 AM

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.

Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Re: preview: cerrar después de imprimir
Posted: Mon Jan 29, 2018 10:38 AM
Yo lo pondria aqui :

Code (fw): Select all Collapse
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.
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: preview: cerrar después de imprimir
Posted: Mon Jan 29, 2018 11:09 AM

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

Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Re: preview: cerrar después de imprimir
Posted: Mon Jan 29, 2018 11:12 AM
si he escrito mal el paréntesis, prueba asi

Code (fw): Select all Collapse
 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" )
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: preview: cerrar después de imprimir
Posted: Mon Jan 29, 2018 11:23 AM

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

Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Re: preview: cerrar después de imprimir
Posted: Mon Jan 29, 2018 11:25 AM

Me alegro, a mandar.
Estamos todos para ayudarnos.

Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: preview: cerrar después de imprimir
Posted: Mon Jan 29, 2018 03:06 PM

Otra forma, sin modificar la clase

viewtopic.php?f=17t=34973p=209484#p209484

&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion