Page 1 of 4
RPreview más reciente
Posted: Thu Jul 18, 2013 11:15 pm
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 2:07 am
by nageswaragunupudi
RPreview natively provides ExportTo/SaveAs Doc(x)/PDF options in the buttonbar.
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 3:13 am
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 6:14 am
by 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 ...
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 7:28 am
by mastintin
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 ...
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
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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 2:06 pm
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 2:58 pm
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 3:47 pm
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 5:06 pm
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 5:31 pm
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 5:35 pm
by 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.
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 5:44 pm
by Armando
Antonio:
No hay problema lo hago en unos minutos, el RPreview esta modificado.
Saludos
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 6:15 pm
by 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
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 8:47 pm
by Antonio Linares
Armando,
Pues se ven iguales, no ?
Que cambios en rpreview.prg has usado ? gracias
Re: RPreview más reciente
Posted: Fri Jul 19, 2013 9:58 pm
by Armando
Antonio:
Como mencioné, _ los hizo Manuel Valdenebro, si me das un correo
te envío el PRG, no creo que Manuel tenga inconveniente.
Saludos
