Xailer & OZ Software

Paco,
//Cambiar la impresora por defecto
cPrinterPredeterminada := Printer:cPrinterName
WriteProfileString( "windows", "device", <cNamePrinter> +","+ Printer:Port()
+","+ Printer:DriverName() )
//Hacer las operaciones que se precisen
....
//Volver a reponer la impresora Predeterminada
WriteProfileString( "windows", "device", cPrinterPrdeterminada +","+
Printer:Port() +","+ Printer:DriverName() )
Un Saludo,
Xevi.
"Paco V." <ssi-estono-@ono.com> ha escrit al
missatge:4d08b23d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Muy Buenas.
> Necesito enviar una cadena a una impresora determinada.
> Esa impresora la tengo definida en una variable NamePrinter
>
> Si hago Printer:Writedata(cadena) me envia la cadena a la impresora por
> defecto.
>
> Donde le puedo indicar el NamePrinter?
>
> Gracias.
>
> Paco V
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5705 (20101215) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5706 (20101215) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

Xevi,
> //Cambiar la impresora por defecto
> cPrinterPredeterminada := Printer:cPrinterName
> WriteProfileString( "windows", "device", <cNamePrinter> +","+
> Printer:Port() +","+ Printer:DriverName() )
> //Hacer las operaciones que se precisen
> ...
> //Volver a reponer la impresora Predeterminada
> WriteProfileString( "windows", "device", cPrinterPrdeterminada +","+
> Printer:Port() +","+ Printer:DriverName() )
No es necesario modificar la impresora por defecto de windows. Basta con
establecer la propiedad Printer:nPrinterIndex al valor de la impresora que
queramos. Mira mi respuesta en el foro pro.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info