Page 1 of 1
Imprimir
Posted: Thu Nov 11, 2010 12:01 pm
by 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
Re: Imprimir
Posted: Fri Nov 12, 2010 11:31 am
by 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
Re: Imprimir
Posted: Thu Nov 18, 2010 4:59 pm
by 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
Re: Imprimir
Posted: Thu Nov 18, 2010 5:26 pm
by JoseGS
Intenta asi:
SETPRINTDEFAULT('PDF') en donde PDF es el nombre de dicha impresora configurada en windows
Re: Imprimir
Posted: Thu Nov 18, 2010 5:28 pm
by 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...
Re: Imprimir
Posted: Thu Nov 18, 2010 5:35 pm
by fergonm
JoseGS wrote: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
Re: Imprimir
Posted: Thu Nov 18, 2010 5:41 pm
by fergonm
Perdon. Faltaba una R, poe eso daba error al compilar.
No obstante no cambia de impresora
Un saludo. Fernando
Re: Imprimir
Posted: Thu Nov 18, 2010 6:02 pm
by 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...
Re: Imprimir
Posted: Thu Nov 18, 2010 6:14 pm
by fergonm
JoseGS wrote: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
Re: Imprimir
Posted: Fri Nov 19, 2010 10:08 am
by 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
Re: Imprimir
Posted: Fri Nov 19, 2010 12:16 pm
by acuellar
Fernando
Con esto:
Code: Select all
PrintFileRaw( GetDefaultPrinter(), "archivo.txt" )
Imprime en Texto en la impresora prederterminada. Especiasl para impresoras matriciales
Saludos,
Adhemar
Re: Imprimir
Posted: Fri Nov 19, 2010 12:45 pm
by fergonm
acuellar wrote: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