preview: cerrar después de imprimir

preview: cerrar después de imprimir

Postby pedroluis » 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
User avatar
pedroluis
 
Posts: 99
Joined: Sun Oct 08, 2017 12:51 pm
Location: San Luis (Capital), Argentina

Re: preview: cerrar después de imprimir

Postby Garbi » 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: Select all  Expand view
::oWnd:End()
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: preview: cerrar después de imprimir

Postby pedroluis » Sun Jan 28, 2018 2: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
User avatar
pedroluis
 
Posts: 99
Joined: Sun Oct 08, 2017 12:51 pm
Location: San Luis (Capital), Argentina

Re: preview: cerrar después de imprimir

Postby pedroluis » 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
User avatar
pedroluis
 
Posts: 99
Joined: Sun Oct 08, 2017 12:51 pm
Location: San Luis (Capital), Argentina

Re: preview: cerrar después de imprimir

Postby Garbi » Mon Jan 29, 2018 10:38 am

Yo lo pondria aqui :

Code: Select all  Expand view
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
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: preview: cerrar después de imprimir

Postby pedroluis » 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
User avatar
pedroluis
 
Posts: 99
Joined: Sun Oct 08, 2017 12:51 pm
Location: San Luis (Capital), Argentina

Re: preview: cerrar después de imprimir

Postby Garbi » Mon Jan 29, 2018 11:12 am

si he escrito mal el paréntesis, prueba asi

Code: Select all  Expand view
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
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: preview: cerrar después de imprimir

Postby pedroluis » Mon Jan 29, 2018 11:23 am

Funcionó perfecto !
eras un Campeón !
Gracias por todo !
Pedro.
Pedro L. Lavallen
San Luis (Capital), Argentina
User avatar
pedroluis
 
Posts: 99
Joined: Sun Oct 08, 2017 12:51 pm
Location: San Luis (Capital), Argentina

Re: preview: cerrar después de imprimir

Postby Garbi » 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
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: preview: cerrar después de imprimir

Postby cnavarro » Mon Jan 29, 2018 3:06 pm

Otra forma, sin modificar la clase

viewtopic.php?f=17&t=34973&p=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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 10 guests