Impresion con "letra condensada" con FoxyPreviewer

[JuanCGM]

Hola Grupo.

 

Estoy terminando de implementar la barra FoxyPreviewer y se presenta un problema y se trata de lo siguiente:

 

En la presentación de vista preliminar, cuando se imprime fisicamente utilizando el boton de la impresora de la barra de FoxyPreviewer, la impresion en impresoras de matriz de punto sale con letra muy pequeña, no utiliza toda la hoja en tamaño normal sino que la impresión sale a un 30% o 40%, muy pequeña, ilegible.

 

 

Si se envia la impresión utilizando el siguiente comando, la impresión sale bien:

 

REPORT FORM "miReporte.frx" NOCONSOLE TO PRINT PROMPT

 

Alguien conoce como puedo solucionar éste inconveniente?

 

Muchas gracias y un cordial saludo;

 

 

Juan Carlos Garcia

Medellin,Colombia

 

 

 

 

 

 

[JuanCGM]

Hola Grupo.

 

Solicito el favor que alguien me brinde sugerencias de como resolver este gran problema que me esta impidiendo poder liberar una nueva version de un aplicativo que tengo en varios clientes. Hasta que no pueda resolver este inconveniente tan grande, no puedo liberar la version con la barra de impresion FoxyPreviewer.

 

Estuve buscando en este foro temas relacionados, encontre varios con algunas sugerencias, pero ya las he probado y tampoco funcionan.

 

Una pregunta... Como puedo editar o tener acceso al boton "IMPRESORA" de la barra de impresion de FoxyPreviewer?

 

Gracias

 

Un saludo desde Medellin-Colombia.

 

Juan Carlos Garcia.

[cegap]

Juan Carlos, yo tenia el mismo problema con el FoxyPreviewer, ya habia
reescrito una buena cantidad de codigo cuando me tope con ese problema
y postie preguntas por cuanto foro se me ocurrio y nadie me dio una
solucion. De lo queme di cuenta es que el creados de FoxyPreviewer ni
siquiera entiendo el problema con las impresoras matriciales, por lo
que es muy dificil que lo solucione.Mi solucion: borrar todo rastro
del foxyPreviewer de mis aplicaciones.

Saludos

[JuanCGM]

Hola. Muchas gracias por responder.

 

Si, la verdad desconcierta  un poco que nadie responda, sera que somos los unicos que tenemos ese problema? mmmmmm

 

Lo que he hecho es estudiar el codigo fuente compilar el proyecto generando el foxypreviewer.app nuevamente, lo que he hecho ha sido eliminar la opcion de "Imprimir" desde la barra de impresion jejejejejejejejeje, suena ridiculo, y la verdad acepto que es un "machetazo" pero prefiero obligar al usuario a utilizar otra opcion para imprimir en donde simplemente se ejecute el comando REPORT FORM miReporte.frx TO PRINTER el cual funciona perfectamente, que el usuaio utilice la ventana del Preview para verlo en pantalla, enviar x email, buscar etc. etc.

 

Desafortunadamente cuando compilo el proyecto fuente y genero el .app se esta presentando otro problema al generar el .PDF , con el .app original que se descarga del sitio oficial de foxypreviewer funciona perfectamente esta funcion, pero cuando compilo YO genera el error que envio aca

 

La verdad se esta volviendo un dolor de cabeza.

 

Muchas gracias

 

Un saludo desde Medellin-Colombia

 

Juan Carlos Garcia

[Richard Silva]

Juan Carlos,

Para reportes en impresoras matriciales, el creador de FoxyPreviewer
recomienda el uso de la propiedad lUseListener = .F., como menciona en
el hilo:

http://groups.google.com/group/publicesvfoxpro/browse_thread/thread/4605e52d058132e7/d8deff8b4df73e58?lnk=gst&q=foxypreviewer+luselistener#d8deff8b4df73e58

También lo corrobora en este otro hilo:

http://groups.google.com/group/publicesvfoxpro/browse_thread/thread/ffc5a14381c2292b/edaec7cac4489da9?lnk=gst&q=foxypreviewer+luselistener#edaec7cac4489da9

Y, en este último, hace referencia al uso de las propiedades del
FoxyPreviewer en modo Simplificado a través del objeto _Screen:


WITH _Screen.oFoxyPreviewer
.cLanguage = "SPANISH" && Idioma
.cTitle = "Espina reports"
.lSendToEmail = .F. && Activar/desactivar la opcion de
enviar por correo
.lSaveToFile = .F. && Activar/desactivar la opcion de
exportar el informe
.nCanvasCount = 2 && Cantidad de paginas a mostrar
.nShowToolbar = 1 && Mostrar o no el toolbar
.lShowSetup = .F. && Mostrar o no la opcion de
configuracion personalizada de la vista previa
.lPrinterPref = .T. && Mostrar o no la opcion de
configuracion de la impresora
.nWindowState = 2 && Mostrar la ventana en forma
maximizada
.nButtonSize = 1 && Tamano de los botones del toolbar
(1=16x16 2=32x32)
.nDockType = -1 && Ubicacion del toolbar (0=Margen
superior)
.cFormIcon = "..\LibreriaVFP7\NVSImagenes\NVSEmisorVistaPrevia.ico"

**** Acá, puedes ocultar el botón Imprimir con
.lPrinterVisible = .F.

ENDWITH


--
Saludos
Espero sea de ayuda

[JuanCGM]

Hola. Mil gracias por tu respuesta

 

Estamos procediendo a realizar las pruebas y estare informando.

De todas formas quiero ampliar un poco lo que nos ha estado ocurriendo. El problema se presente x que la impresora queda inicializada de tal forma que el proximo reporte que se imprima salga en letra pequeña. Con solo entrar a modo vista preview ya queda asi, no importa si se imprime o no el documento. El ejercicio es el siguiente:

 

PRUEBA # 1:

• Se ingresa al sistema
• Se abre el reporte utilizando foxypreviewer en presentacion en pantalla (preview)
• Se cierra el informe (sin imprimir o imprimiendo, da igual)
• Se imprime directamente el reporte a la impresora con REPORT FORM miReporte.frx TO PRINTER
• El reporte sale mal (letra pequeña).

PRUEBA # 2:

• Se ingresa al sistema
• Se envia directamente el reporte a la impresora con REPORT FORM miReporte.frx TO PRINTER
• El reporte sale bien, normal.

Muchas Gracias

 

Juan Carlos Garcia

Medellin-Colombia.

 

[JuanCGM]

Hola.

 

Te cuento que hicimos las 2 pruebas que nos recomiendas y ninguna de ellas funciono. Lo curioso del caso es que nos salimos del sistema y tiramos un reporte de la siguiente forma y sale perfecto:

 

SET REPORTBEHAVIOR 80

REPORT FORM miReporte NOCONSOLE PREVIEW WINDOW reporte OBJECT TYPE 1 NOWAIT

En los hilos que nos mensionaste habla de colocar la propiedad lUseListener = .F., ya que esto hacia el mismo efecto de SET REPORTBEHAVIOR 80, sin embargo lo hice y no funciono, todo indica que se continua usando el reporteador de VFP9 el cual es el que genera el problema.

Como podemos asegurarnos o confirmar que efectivamente foxypreviewer si deshabilito el uso del reporteador de VFP9?, es decir, como podemos obligar a que se use SET REPORTBEHAVIOR 80???

Alguna otra sugerencia sera bien recibida,

 

muchas gracias

 

Juan Carlos Garcia

Medellin-Colombia

 

 

[TurbiSoft]

Saludos:

En mi app con solo hacer esto lUseListener = .F., me funciona bien con
impresoras matriciales

Anteriormente hacia esto
SET REPORTBEHAVIOR 80
report form mireprote....
SET REPORTBEHAVIOR 90

Te recomiendo que prepares una rutina, clase o formulario de impresion
recurrente, y parametrices esta varable, lUseListener , indicando si
se imprime en una impresora matricial.

Suerte.

[JuanCGM]

Hola.

Gracias por tu sugerencia. Voy a hacer un programita pequeño para hacer pruebas.

 

Una pregunta.

 

Ahora utilizas la vble. lUseListener x que imprimes con FoxyPreviewer?.

 

Asi tambien te funcionaba?

 

SET REPORTBEHAVIOR 80
report form mireprote....
SET REPORTBEHAVIOR 90

Muchas gracias. Un saludo desde Medellin-Colombia.

 

Juan C. Garcia

[José Luis Carranza Palomares]

Hola hace unos 3 meses pregunte lo mismo ya que también detecte el mismo problema, el autor de la clase FOXYPREVIEWER me pidió que descargue la última versión de eso ya casi 3 meses como te comente y que realizara las pruebas del caso. Bueno por falta de tiempo recién esta semana he podido realizar las pruebas de impresión y funciona. Claro que siguiendo las sugerencias del grupo y del autor del FOXYPREVIEWER.  Lo utilizo de la siguiente manera:

 

Parameters reporte

 

xerror= 0

TRY

      SET REPORTBEHAVIOR 90

      miNameReport      =     reporte    

      SET PROCEDURE TO "FoxyPreviewer.App" ADDITIVE

      LOCAL loReport as "PreviewHelper" OF "FoxyPreviewer.App"

      loReport = CREATEOBJECT("PreviewHelper")

     

 

WITH loReport as ReportHelper

  .cLanguage = "SPANISH"

  .AddReport(miNameReport,"NODIALOG") && FRX File, Clauses

  * Optional available parameters

  *.cTitle = "Vista previa del catalogo de Paises" && The preview window title

  *  .cTitle = "FoxyPreviewer Informe traducido al español" && The preview window title in spanish

  *  .cDestFile = "c:\Teste1.xls"  && Use to create an output without previewing

  *  .lUseListener = .T. && Using .F. will set ReportBehavior 80 for dot-matrix printers

 

  &&        .lSendToEmail  = .T. && adds the send to email button

  &&        .lSaveToFile   = .T. && adds the save to file button

  &&        .lShowCopies   = .T. && shows the copies spinner

  &&        .lShowMiniatures = .T. && shows the miniatures page

  &&        .nCopies       = 1 && The quantity of copies to be printed

  &&        .lPrintVisible = .T. && shows the print button in the toolbar

  &&        .cDefaultListener = "ReportListener"

  &&        .nCanvasCount = 1 && initial nr of pages rendered on the preview form.

  &&        && Valid values are 1 (default), 2, or 4.

  &&        .nZoomLevel = 5 && initial zoom level of the preview window. Possible values are:

 

  && 1-10%, 2-25%, 3-50%, 4-75%, 5-100% default, 6-150% ;

  && 7-200%, 8-300%, 9-500%, 10-whole page

 

  &&        .cEmailPRG = "MySendMail.Prg"

 

  * Defining the previewform.WindowState

  * 0 = Normal, 2 = Maximized

     

   .lSaveToFile   = .T.

     

  .nWindowState = 0 && Maximized

 

   .lUseListener = .f. &&En falso cuando se utiliza impresora matricial

 

   * .PDFnPageMode = 2 && Default = 0, 0 = Normal view, 1 = Show the outlines pane, 2 = Show the thumbnails pane, 3 = Full Screen

 

  .RunReport()

 

ENDWITH

 

      DO FOXYPREVIEWER.APP WITH "Release"

 

CATCH 

      xerror=1

ENDTRY

     

 

Espero te sea de ayuda.

 

Saludos

 

 

 

 

José Luis Carranza Palomares

Jefe de Proyecto

Av. Alfredo Mendiola 6821  Los Olivos Lima Perú

Telefono: 528-0782  RPC 989-185262

[Cesar VfpImaging]

CEGAP,

 

>> De lo queme di cuenta es que el creados de FoxyPreviewer ni
siquiera entiendo el problema con las impresoras matriciales, por lo
que es muy dificil que lo solucione.

 

No es verdad,

 

 

La base de FoxyPreviewer es utilizar las nuevas posibilidades del "Report Engine" de VFP9.

Con la utilizacion de ReportListeners, podemos cambiar casi todo en nuestros reportes.

Para utilizar el nuevo formato de reportes, basta utilizar:

 

SET REPORTBEHAVIOR 90

 

Haga un teste con tus reportes, con ReportBehavior 90, SIN FOXYPREVIEWER, y veras que la impresion en matrices de punto se queda mala.

 

Eso significa que NO ES UN BUG DE FOXYPREVIEWER.

ReportBehavior 90 no esta preocupado con Matrices de Punto !!!

No funciona !!!

 

Pero hay una solucion, utilizar FoxyPreviewer en modo completo, COMPLETO, o COMPLICADO, mire en los ejemplos que la gente posto aca, con la propiedad lUseListener = .F.

Asi, FoxyPreviewer utilizara un truco para lograr el sistema de reportes y imprimir en matric de punto normalmente.

 

Espero que tengas compreendido.

 

Saludos

 

Cesar

 

 

 

 

2011/5/26 cegap <ce...@sulanet.net>