Report To Printer

[Bingen Ugaldebere]

Hola compañeros.
Creo recordar que en el Report para enviar directamente a una impresora
basta con añadir la clausula To Printer y el nombre de la impresora.
REPORT oReport TITLE "REPORTE" ;
To Printer "HP Photosmart 2570 series"
Pero esto no va y lo que veo es que la impresora ha de ser un objeto no
un literal.
Alguno sabe como se hace esto ahora??
Salu2

[Bingen Ugaldebere]

Como no he conseguido hacer que funcione esto
> REPORT oReport TITLE "REPORTE" ;
> To Printer "HP Photosmart 2570 series"
Lo que he hecho es buscar el la lista de impresoras la que querí­a
For nItem:=1 to Len(Printer:aPrinterNames)
If At("HP Photosmart 2570 Series",Printer:aPrinterNames[nItem])>0
::nPrinter:=nItem
Endif
Next
y luego guardar la impresora actual
::nDefaultPrinter := Printer:nPrinterIndex
Cambiar la impresora por defecto para el programa
Printer:nPrinterIndex:=::nPrinter
y después del Report volver a poner la impresora por defecto para el
programa a la que anteriormente estaba
Printer:nPrinterIndex := ::nDefaultPrinter
Asunto resulelto.
Gracias y salu2

[ignacio]

Bingen,
El comando REPORT tiene una cláusula que es TO PRINTER en donde se indica la
impresora a utilizar.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:46fb8817$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Como no he conseguido hacer que funcione esto
>
>> REPORT oReport TITLE "REPORTE" ;
>> To Printer "HP Photosmart 2570 series"
>
> Lo que he hecho es buscar el la lista de impresoras la que quería
>
> For nItem:=1 to Len(Printer:aPrinterNames)
> If At("HP Photosmart 2570 Series",Printer:aPrinterNames[nItem])>0
> ::nPrinter:=nItem
> Endif
> Next
>
>
> y luego guardar la impresora actual
>
> ::nDefaultPrinter := Printer:nPrinterIndex
>
> Cambiar la impresora por defecto para el programa
>
> Printer:nPrinterIndex:=::nPrinter
>
> y después del Report volver a poner la impresora por defecto para el
> programa a la que anteriormente estaba
>
> Printer:nPrinterIndex := ::nDefaultPrinter
>
>
> Asunto resulelto.
>
> Gracias y salu2

[Bingen Ugaldebere]

Si eso mismo digo en el primer mensaje pero le pongo un nombre de
impresora y no va, al parecer pide un objeto y no se como dárselo.
He intentado crear un nuevo objeto printer con una impresora que no es
la impresora por defecto y no he podido asi que no he encontrado mas que
la solución propuesta que va de 10 asi que ni te preocupes, solucionado.
Salu2 y gracias.
Ignacio Ortiz de Zúñiga escribió:
> Bingen,
>
> El comando REPORT tiene una cláusula que es TO PRINTER en donde se indica la
> impresora a utilizar.
>
> Un saludo,
>
>
>