FiveTech Support Forums

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

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

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

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 Arteaga wrote: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 ...

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

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

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

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

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

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

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.

Antonio:

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

Saludos

Armando,

Pues se ven iguales, no ?

Que cambios en rpreview.prg has usado ? gracias

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