Imprimir directamente

[pacoelche]

Tengo instaladas varias impresoras en un ordenador.
Necesito imprimir en cualquiera de ellas sin tener que pasar por el Preview.
Me estoy volviendo loco y no lo logro, siempre me imprime por la impresora
predeterminada.
Por favor, que alguien me envíe un ejemplo teniendo en cuenta que tengo
instaladas las impresoras "hp psc 1200 series" y "Solid Converter PDF".
¿Como hago para imprimir directamente en cada una de ellas?
Gracias anticipadas

[jasm.quitaesto]

Antes de imprimir lanza el dí­alogo de seleccion de impresoras.
En el IDE, pestaña Diálogos, el botón TPrintDlg.
Después redirige la impresión a la impresora seleccionada.
Saludos
Jose Alfonso Suarez Moreno
El 17/07/2010 21:37, Francisco Martí­nez Garcí­a escribió:
> Tengo instaladas varias impresoras en un ordenador.
>
> Necesito imprimir en cualquiera de ellas sin tener que pasar por el Preview.
>
> Me estoy volviendo loco y no lo logro, siempre me imprime por la impresora
> predeterminada.
>
> Por favor, que alguien me enví­e un ejemplo teniendo en cuenta que tengo
> instaladas las impresoras "hp psc 1200 series" y "Solid Converter PDF".
> ¿Como hago para imprimir directamente en cada una de ellas?
>
> Gracias anticipadas
>
>

[pacoelche]

Gracias José Alfonso, pero lo que quiero es imprimir directamente, sin tener
que seleccionar una impresora mediante diálogos.
Estoy comenzando una aplicación que tiene que hacer pedidos a varias
impresoras.
Por ejemplo imagina una empresa a la que hacen un pedido. Después de
introducir las líneas del pedido el ordenador debe separar cada una de las
líneas del pedido al departamento correspondiente (cada departamento tiene
una impresora).
Gracias de todas formas, seguiré investigando.
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje news:4c42c32e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Antes de imprimir lanza el díalogo de seleccion de impresoras.
>
> En el IDE, pestaña Diálogos, el botón TPrintDlg.
>
> Después redirige la impresión a la impresora seleccionada.
>
> Saludos
>
> Jose Alfonso Suarez Moreno
>
>
> El 17/07/2010 21:37, Francisco Martínez García escribió:
>> Tengo instaladas varias impresoras en un ordenador.
>>
>> Necesito imprimir en cualquiera de ellas sin tener que pasar por el
>> Preview.
>>
>> Me estoy volviendo loco y no lo logro, siempre me imprime por la
>> impresora
>> predeterminada.
>>
>> Por favor, que alguien me envíe un ejemplo teniendo en cuenta que tengo
>> instaladas las impresoras "hp psc 1200 series" y "Solid Converter PDF".
>> ¿Como hago para imprimir directamente en cada una de ellas?
>>
>> Gracias anticipadas
>>
>>
>

[zeasoftware]

Hece tiempo alguien puso esta función, yo la añadí­ a una clase que hice para
mis impresiones, espero te sirva:
METHOD SetPrinter( cName ) CLASS ZPrintDocs
Local nIndex
IF !Empty( cName )
If ( (nIndex == aScan( ::aPrinterNames, {|v| v == cName } ) ) == 0 )
::oDevice:nPrinterIndex := nIndex
End
ENDIF
RETURN ( Nil )
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com

[xevi[1]]

Creo que en esta línea hay un error de comparación...
If ( (nIndex == aScan( ::aPrinterNames, {|v| v == cName } ) ) == 0 )
Yo la estoy utilizando ...
If ( (nIndex == aScan( ::aPrinterNames, {|v| v == cName } ) ) > 0 )
....
Un Saludo,
Xevi.
"Ramón Zea" <zeasoftware@hotmail.com> ha escrit al missatge del grup de
discussió: [email=4c473dfc@svctag-j7w3v3j....]4c473dfc@svctag-j7w3v3j....[/email]
> Hece tiempo alguien puso esta función, yo la añadí a una clase que hice
> para mis impresiones, espero te sirva:
>
> METHOD SetPrinter( cName ) CLASS ZPrintDocs
> Local nIndex
>
> IF !Empty( cName )
> If ( (nIndex == aScan( ::aPrinterNames, {|v| v == cName } ) ) == 0 )
> ::oDevice:nPrinterIndex := nIndex
> End
> ENDIF
> RETURN ( Nil )
>
> Saludos.
> --
> Ramón Zea
> 01.993.231-62-29
> http://www.paginasprodigy.com/zeasoftware/
> zeasoftware@prodigy.net.mx
> zeasoftware@hotmail.com
> ramonzea@yahoo.com
> zeasoft.movil@hotmail.com
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5298 (20100721) __________
>
> 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 5298 (20100721) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[xevi[1]]

Perdón...
la correcta sería...
If (nIndex := aScan( ::aPrinterNames, {|v| v == cName } ) ) > 0
Un Saludo,
Xevi.
"xevi" <xevicomas_quitaeso@gmail.com> ha escrit al missatge del grup de
discussió: 4c474525$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Creo que en esta línea hay un error de comparación...
> If ( (nIndex == aScan( ::aPrinterNames, {|v| v == cName } ) ) == 0 )
>
> Yo la estoy utilizando ...
> If ( (nIndex == aScan( ::aPrinterNames, {|v| v == cName } ) ) > 0 )
> ...
>
> Un Saludo,
> Xevi.
>
>
> "Ramón Zea" <zeasoftware@hotmail.com> ha escrit al missatge del grup de
> discussió: [email=4c473dfc@svctag-j7w3v3j....]4c473dfc@svctag-j7w3v3j....[/email]
>> Hece tiempo alguien puso esta función, yo la añadí a una clase que hice
>> para mis impresiones, espero te sirva:
>>
>> METHOD SetPrinter( cName ) CLASS ZPrintDocs
>> Local nIndex
>>
>> IF !Empty( cName )
>> If ( (nIndex == aScan( ::aPrinterNames, {|v| v == cName } ) ) == 0 )
>> ::oDevice:nPrinterIndex := nIndex
>> End
>> ENDIF
>> RETURN ( Nil )
>>
>> Saludos.
>> --
>> Ramón Zea
>> 01.993.231-62-29
>> http://www.paginasprodigy.com/zeasoftware/
>> zeasoftware@prodigy.net.mx
>> zeasoftware@hotmail.com
>> ramonzea@yahoo.com
>> zeasoft.movil@hotmail.com
>>
>> __________ Información de ESET NOD32 Antivirus, versión de la base de
>> firmas de virus 5298 (20100721) __________
>>
>> 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 5298 (20100721) __________
>
> 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 5299 (20100721) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[zeasoftware]

Perdon, cierto, lo copie mal.
Gracias por la correcion.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com

[pacoelche]

Gracias por vuestras sugerencias.
Pero el fallo principal mío era de principiante.
Estaba utilizando la siguientes líneas:
Printer:StartDoc()
Printer:nPrinterIndex:=2
Ya le podía indicar 1, 2 ó 99 que siempre me imprimía por la impresora
predeterminada.
El error es que tenía las líneas intercambiadas. Solo hay que cambiar las
líneas de orden.
Printer:nPrinterIndex:=2
Printer:StartDoc()
Si cambiamos el orden ya funciona.
Cuando uno programa de madrugada con muchas horas de trabajo a la espalda no
se puede sacar nada bueno.
De todas formas muchas gracias
"Francisco Martínez García" <pacoelche@hotmail.com> escribió en el mensaje
news:4c42068d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Tengo instaladas varias impresoras en un ordenador.
>
> Necesito imprimir en cualquiera de ellas sin tener que pasar por el
> Preview.
>
> Me estoy volviendo loco y no lo logro, siempre me imprime por la impresora
> predeterminada.
>
> Por favor, que alguien me envíe un ejemplo teniendo en cuenta que tengo
> instaladas las impresoras "hp psc 1200 series" y "Solid Converter PDF".
> ¿Como hago para imprimir directamente en cada una de ellas?
>
> Gracias anticipadas
>