RPreview más reciente

User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

RPreview más reciente

Post 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: RPreview más reciente

Post by nageswaragunupudi »

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

G. N. Rao.
Hyderabad, India
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: RPreview más reciente

Post 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 5:22 pm
Location: Mexico
Contact:

Re: RPreview más reciente

Post 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 ...
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: RPreview más reciente

Post 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


 
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: RPreview más reciente

Post 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: RPreview más reciente

Post 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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: RPreview más reciente

Post 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 :D

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: RPreview más reciente

Post 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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: RPreview más reciente

Post 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: RPreview más reciente

Post 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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: RPreview más reciente

Post by Armando »

Antonio:

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

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: RPreview más reciente

Post by Armando »

Antonio:

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

Image

Image

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: RPreview más reciente

Post by Antonio Linares »

Armando,

Pues se ven iguales, no ? :-)

Que cambios en rpreview.prg has usado ? gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: RPreview más reciente

Post 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Post Reply