Imprimir

[fergonm]

Necesito imprimir una factura en papel y en .PDF

Ahora selecciono la impresora con "From USER" e imprimo y posteriormete repito el código vuelvo a elegir e imprimo con impresora virtual el PDF (CUTE PDF Writer)

¿Puedo hacerlo con un solo PRINT?

Muchas gracias. Fernando

[fergonm]

Buenos días.

Tras darle unas vueltas, creo que lo que necesito es cambiar de impresora sin utilizar FROm USER. He probado varias formas pero no lo he logrado

¿Se peude hacer?, ¿como?

Muchas gracias y un saludo

[fergonm]

Buenas tardes.

Estoy intentando cambiar de impresora por programa los he intentado de varias formas, la última así:

PRINT oPrn ;
NAME "INFORME PERICIAL "+AllTrim(Right(aDatos[1],5))+" MINUTA"
oPrn:cModel(cpw2)

donde cpw2 es una impresora virtual cuyo nombre obtengo con

oPrn:getPort

Me imagino que es una barbaridad pero no encuentro la solución.

Muchas gracias

[JoseGS]

Intenta asi:

SETPRINTDEFAULT('PDF') en donde PDF es el nombre de dicha impresora configurada en windows

[JoseGS]

Incluso seria de utilidad que al iniciar el programa verifiques si tu impresora PDF esta instalada

aPrinters:=AgetPrinters()

Para obtener la lista de impresoras configuradas y luego con ASCAN buscas la presencia de la impresora que requieras...

[fergonm]

Intenta asi:

SETPRINTDEFAULT('PDF') en donde PDF es el nombre de dicha impresora configurada en windows

Buenas tardes.

Me temo que no existe en HARBOUR ya que al compilar da el siguiente error.

Error: Unresolved external '_HB_FUN_SETPINTDEFAULT' referenced from

Un saludo. Fernando

[fergonm]

Perdon. Faltaba una R, poe eso daba error al compilar.

No obstante no cambia de impresora

Un saludo. Fernando

[JoseGS]

El nombre de la impresora esta bien escrito ?
Porque a mi me funciona de maravilla... intenta renombrar tu impresora asignandole un nombre sencillo... Ej PDF... cuando instalo mis aplicaciones detecto la presencia de las impresoras por su nombre PDF, INFORMES, FACTURAS etc que son nombre que yo asigno asi siempre tengo la certeza de haberlas creado segun mis necesidades...

[fergonm]

El nombre de la impresora esta bien escrito ?
Porque a mi me funciona de maravilla... intenta renombrar tu impresora asignandole un nombre sencillo... Ej PDF... cuando instalo mis aplicaciones detecto la presencia de las impresoras por su nombre PDF, INFORMES, FACTURAS etc que son nombre que yo asigno asi siempre tengo la certeza de haberlas creado segun mis necesidades...

El mombre está bien ya que si elijo esa impresora veo el nombre con
Msginfo(oPrn:GetPort)
que me devuelve CPW2:, por lo tanto no hay error en ese apartado

Un saludo. Fernando

[fergonm]

Buenos Días

No estoy haciendo las cosas bien. Para la función SetPrintDefault() debeo utilizar el nombre de la impresora.

¿Como obtengo el nombre?. Con el nombre que obtengo con PrnGetName(), no cambia de impresora.

Un saludo. Fernando

[acuellar]

Fernando

Con esto:

Code: Select all

PrintFileRaw( GetDefaultPrinter(), "archivo.txt" )
 

Imprime en Texto en la impresora prederterminada. Especiasl para impresoras matriciales

Saludos,

Adhemar

[fergonm]

Code: Select all

PrintFileRaw( GetDefaultPrinter(), "archivo.txt" )
 

Imprime en Texto en la impresora prederterminada. Especiasl para impresoras matriciales

No localizo en la documentación la función PrintFileRaw()

Un saludo desde Zaragoza.
Fernando