RPreview más reciente

[Armando]

Foreros:

Alguien que haya modificado el RPreview.Prg, el que permite exportar a .DOC y .PDF,
para que el usuario pueda seleccionar la impresora de salida? y quiera compartirlo.

Muy agradecido

[nageswaragunupudi]

RPreview natively provides ExportTo/SaveAs Doc(x)/PDF options in the buttonbar.

[Armando]

Mr. Rao:

Yes you're right, but does not allow the user to choose a printer other than the pre-defined printer.

Thanks for your reply.

Regards

[Alfredo Arteaga]

Como te explico Armando (!?)

La vista preliminar recibe un objeto con las características de la impresora predefinida o seleccionada al generar el documento, informe o reporte; si en posible seleccionar una impresora diferente pero al seleccionarla se tendrá que volver a generar esa salida y/o muy probablemente será diferente y también deberás tomar en cuenta la cantidad de archivos (wmf o emf) a generar. Tal vez con una hoja no sea representativo el tiempo pero con cientos o miles de hojas ...

[mastintin]

Como te explico Armando (!?)

La vista preliminar recibe un objeto con las características de la impresora predefinida o seleccionada al generar el documento, informe o reporte; si en posible seleccionar una impresora diferente pero al seleccionarla se tendrá que volver a generar esa salida y/o muy probablemente será diferente y también deberás tomar en cuenta la cantidad de archivos (wmf o emf) a generar. Tal vez con una hoja no sea representativo el tiempo pero con cientos o miles de hojas ...

Alfredo tiene razón en esto , otra opción es que no te importe este detalle ( a mi por ejemplo , no me importa ) y no regeneres las vistas sino que simplemente mandes la impresión a una impresora diferente a la prevista inicialmente . En ese caso yo tengo un código que se publicó en este foro :

Code: Select all  Expand view

METHOD BuildWindow() CLASS TPreview
   local aImpre := aGetPrinters(), cCbx:=PrnGetName()

  .....

   @ nRow-4, 890 COMBOBOX ::oCbx VAR cCbx ;
     PROMPTS aImpre ;
     OF ::oBar FONT ::oFont PIXEL SIZE 300,200 ;
     ON CHANGE F_CamImpre(oThis:oDevice,cCbx)

  ......


//------------------------------------------------------------------------
// función para cambiar la impresora desde previo (mcn)
//------------------------------------------------------------------------
func f_CamImpre (oDevice, cCbx )
local cPrinter

cPrinter := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx )
SysRefresh()
PrinterInit()
 DeleteDC( oDevice:hDC )
oDevice:hDC := GetPrintDefault( GetActiveWindow() )
SysRefresh()
WriteProfString( "windows", "device", cPrinter )
//pausa("1"+cCbx+"1")
RETURN nil


 

[Armando]

Alfredo, Mastintin:

Ambos llevan razón porque, efectivamente, la vista previa se crea con las propiedades de la impresora
asignada por default y al cambiar de impresora después de creada la vista previa puede ocasionar
problemas.

Hace tiempo Manuel Valdenebro (Perdón si estoy equivocado) modifico el Rpreview permitiendo elegir
impresora de salida y funciona sin problemas, ahora necesito usar la versión más reciente de RPreview
para aprovechar las posibilidades de exportar la impresión pero no tiene la de elegir impresora de salida.

Voy a ver si puedo adaptar el código que publica Mastintin, Gracias.

Saludos

[Antonio Linares]

Armando,

Pero en ocasiones, lo que se imprima no coincidirá con lo que se está mostrando, ya que lo que se muestra es para otra impresora.

Si la resolución de las impresoras es similar, entonces supongo que no habrá problema

[Armando]

Antonio:

La teoría dicta que tienen toda la razón, sin embargo, he trabajado con la Rpreview modificada por
Manuel y hasta la fecha no se me ha reportado dificultad alguna, será que las impresoras tienen la
resolución muy similar?, que tanto puede afectarnos el cambio de resolución de una impresora a otra ?.

Antonio, estoy escribiendo mi carta a Santa y a los Reyes Magos para se incluya esta característica
en un nuevo RPreview

Saludos

[Antonio Linares]

Armando,

No creo que sea algo especialmente complicado de implementar, pero pienso que podría ocurrir lo que te he comentado.

Tal vez imprimiendo en una impresora de chorro de tinta y en una laser. Sus resoluciones son bastante distintas, no es asi ? Yo (casi no) uso unas de chorro de tinta, si alguien que tenga las dos es tan amable de comentarnos

[Armando]

Antonio:

Veo que el tema te ha interesado y te lo agradezco, yo tengo ambas impresoras,
voy a crear una vista previa para ambas impresoras y las voy a enviar a PDF
para subirlas al foro, a ver que opinan.

Saludos

[Antonio Linares]

Armando,

La prueba más útil creo que sería que hagas preview de una de ellas y luego imprimas en la otra, pero para eso tendrás que modificar el preview.

[Armando]

Antonio:

No hay problema lo hago en unos minutos, el RPreview esta modificado.

Saludos

[Armando]

Antonio:

Me parece que no hay un cambio sustantivo. que opinas ?





Te explico cómo lo hice, teniendo como predeterminada la impresora laser, desde la vista previa elegí imprimir en la de inyección de tinta y

teniendo como predeterminada la impresora de inyección de tinta desde la vista previa elegí imprimir en la laser.

Saludos

[Antonio Linares]

Armando,

Pues se ven iguales, no ?

Que cambios en rpreview.prg has usado ? gracias

[Armando]

Antonio:

Como mencioné, los cambios los hizo Manuel Valdenebro, si me das un correo
te envío el PRG, no creo que Manuel tenga inconveniente.

Saludos