tPrinter a PDF

[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

[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

[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

[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

[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

[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

[cmsoft]

Puedes probar así?

Code: Select all  Expand view  RUN

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.