Como elegir una impresora para lanzar un Report?

Como elegir una impresora para lanzar un Report?

Postby Rafael Clemente » Wed Dec 06, 2006 9:12 am

Como puede forzarse a un REPORT a que permita elegir impresora?. Algo similar a la orden PRINT ... FROM USER Gracias
Rafael
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Postby Frafive » Wed Dec 06, 2006 10:42 am

Rafael,


PRINT oPrn NAME " Clientes " PREVIEW TO cPrinter


REPORT oReport TITLE " " , " "," ", " ", " ", " " ," Clientes " , " ", " " ;
CAPTION " Clientes " ;
HEADER "Fecha: "+dtoc(date()),;
"Hora: "+time() RIGHT;
FOOTER " "," ","Página: "+str(oReport:nPage,3) ;
FONT oFont1, oFont2,oFont3, oFont4 ;
PREVIEW ;
TO DEVICE oPrn
Frafive
 
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Postby Rafael Clemente » Wed Dec 06, 2006 12:35 pm

Pues debo estar haciendo algo mal, porque con:

Code: Select all  Expand view
PRINT  oPrn NAME cTitulo FROM USER PREVIEW
REPORT oReport ;
       TITLE  cTitulo,;
.......
       TO DEVICE oPrn

me deja escoger impresora pero sólo me imprime la primera linea del Report.
Alguna otra sugerencia?,
Gracias,
Rafael
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Postby Francisco Horta » Wed Dec 06, 2006 4:39 pm

Rafael, pues algo rapido seria antes del report meter printersetup(), no se si funcione tambien oReport:Setup()

salu2
paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Postby Rafael Clemente » Thu Dec 07, 2006 8:27 am

Paco:

Pues sí señor, funciona. Tan fácil como poner PrinterSetup() antes del REPORT...
A veces las soluciones más obvias son las que más nos cuesta ver. Muchas gracias y un saludo,

Rafael
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Postby Francisco Horta » Fri Dec 08, 2006 5:44 am

DND, que bueno que ya se soluciono
salu2
paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 86 guests