FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Imprimir
Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Imprimir
Posted: Thu Nov 11, 2010 12:01 PM

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

Saludos. Fernando
Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Re: Imprimir
Posted: Fri Nov 12, 2010 11:31 AM

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

Saludos. Fernando
Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Re: Imprimir
Posted: Thu Nov 18, 2010 04:59 PM

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

Saludos. Fernando
Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Re: Imprimir
Posted: Thu Nov 18, 2010 05:26 PM

Intenta asi:

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

Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Re: Imprimir
Posted: Thu Nov 18, 2010 05:28 PM

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...

Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Re: Imprimir
Posted: Thu Nov 18, 2010 05:35 PM
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
Saludos. Fernando
Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Re: Imprimir
Posted: Thu Nov 18, 2010 05:41 PM

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

No obstante no cambia de impresora

Un saludo. Fernando

Saludos. Fernando
Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Re: Imprimir
Posted: Thu Nov 18, 2010 06:02 PM

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...

Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Re: Imprimir
Posted: Thu Nov 18, 2010 06:14 PM
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
Saludos. Fernando
Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Re: Imprimir
Posted: Fri Nov 19, 2010 10:08 AM

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

Saludos. Fernando
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Imprimir
Posted: Fri Nov 19, 2010 12:16 PM
Fernando

Con esto:
Code (fw): Select all Collapse
PrintFileRaw( GetDefaultPrinter(), "archivo.txt" )

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

Saludos,

Adhemar
Saludos,



Adhemar C.
Posts: 133
Joined: Fri Nov 30, 2007 11:34 AM
Re: Imprimir
Posted: Fri Nov 19, 2010 12:45 PM
acuellar wrote:
Code (fw): Select all Collapse
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
Saludos. Fernando

Continue the discussion