In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Re: Printer:Writedata

Foro público de Xailer en español
Responder
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Re: Printer:Writedata

Mensaje por Xevi »

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
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Re: Printer:Writedata

Mensaje por jfgimenez »

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
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder