Page 1 of 1

tPrinter a PDF

PostPosted: Fri Feb 11, 2022 1:37 pm
by Adolfo
Saludos Fivewinners

tengo este codigo

PRINTER oPrn FILE ( RutaPdf() + "\Informe" + Alltrim(Str(NumNumero)) + ".PDF")

Genero el PDF sin problemas, queda bien, bonito... perooooo
Si tengo predeterminada una impresora de Tickets, NO, adopta las caracteristicas de la impresora predeterminada, sea de Tickets, Etiquetas de barra etc.

Como hacerlo para que salga en forma "normal", tamaño carta por ej. No todos los equipos tienen impresora "normal", algunos solo de Tickets, otros de Etiquetas de codigo de barra, otros Plotter de manera predeterminada, y en algunos casos no púedo cambiarla pues comparto con aplicaciones que si requieren tal o cual tipo de impresora y yo no puedo interfir.

Eso
Saludos

Re: tPrinter a PDF

PostPosted: Fri Feb 11, 2022 2:21 pm
by Adolfo
Probe con

oPrn:SetPage( 1 )
oPrn:SetPortrait()

mi codigo lo tengo todo con

oPrn:CmSay( 1.0, 6.8 ,"Informe N° " + Alltrim(Str(NumNumero)),oFont1)
oPrn:CmBox( 0.7, 6.5, 1.8, 14, oPen1 )

Y aun aparece recortado el PDF al tamaño de la etiqueta programada en la impresora

Re: tPrinter a PDF

PostPosted: Fri Feb 11, 2022 8:05 pm
by hmpaquito
Hola,

Me pareciera a mi que no queda otra que cambiar, por programa, la impresora por defecto, luego imprimir a pdf y restaurar

Salu2

Re: tPrinter a PDF

PostPosted: Fri Feb 11, 2022 8:29 pm
by Adolfo
Lo pense. Gracias

No es solucion, en algunos puntos, por ej en las bodegas solo esta la impresora de etiquetas de barras, algunos ni tienen pues envian todo por mail o en excel.

Saludos

Re: tPrinter a PDF

PostPosted: Fri Feb 11, 2022 9:03 pm
by jbrita
yo lo hago asi:


Local cPrinter:="Microsoft XPS Document Writer"

oPrn:=PrnSetSize( 2159, 3302 )
PRINT oPrn NAME "Impresión " PREVIEW TO cPrinter

y luego imprimo a pdf
saludos

Re: tPrinter a PDF

PostPosted: Fri Feb 11, 2022 11:04 pm
by Adolfo
Hola Jose

Tambien lo habia probado, pasa que no hay intervencion del usuario, es un proceso con solo dos botones y listo
Pasarlo por el preview enlentece el procedimiento y tengo seguro que mas de alguno se va a aproblemar con las opciones y demases... los conozco

Saludos y gracias

Re: tPrinter a PDF

PostPosted: Sat Feb 12, 2022 12:12 am
by cmsoft
Puedes probar así?
Code: Select all  Expand view

PRINT oPrn FILE ( RutaPdf() + "\Informe" + Alltrim(Str(NumNumero)) + ".PDF")
oPrn:cModel := ALLTRIM(oApp:imp_predet)
oPrn:SetPortrait()
oPrn:SetPage(9)
.... El resto del codigo de impresión  
 

Donde oApp:imp_predet es el nombre de una impresora válida en la terminal que estés trabajando que tenga una hoja A4 como configuración.
En caso de que no tenga impresoras que no sean tickeadoras, vas a tener que ponerle una pdf al menos.