como guardar mi reporte .frx en imagen (jpg, png u otro) ???

1,120 views
Skip to first unread message

Saúl Piña

unread,
Nov 27, 2013, 10:45:13 AM11/27/13
to publice...@googlegroups.com
Pues eso, me han solicitado que un reporte lo desean como imagen para agregarlo en algun archivo de word, se puede,

Como siempre muy agradecido...


Francisco ji

unread,
Nov 27, 2013, 11:16:10 AM11/27/13
to publice...@googlegroups.com
Saúl definitivamente si se puede.

Te recomiendo que leas respecto a reportlistener, puedes guiarte del siguiente código que utilizo en alguna aplicación, es solo para que te guies.

LOCAL oListener
oListener = CREATEOBJECT('ReportListener')
DO (_REPORTOUTPUT) WITH 3, oListener


        REPORT FORM Mireporte.frx OBJECT oListener 
        For nPageIndex=1 To oListener.PageTotal
            cOutputFile = "c:\Imagen_"+Trans(nPageIndex)+".jpg"
            oListener.OutputPage(nPageIndex,cOutputFile, 102, 0,0,768,1024) && 105=bitmap
        Next     

Se te guardarán en la unidad C: la cantidad de imagenes tantas paginas sea el reporte.

Espero te ayude.


Date: Wed, 27 Nov 2013 07:45:13 -0800
From: saulpi...@gmail.com
To: publice...@googlegroups.com
Subject: [vfp] como guardar mi reporte .frx en imagen (jpg, png u otro) ???

Héctor Bernal

unread,
Nov 27, 2013, 11:20:49 AM11/27/13
to publice...@googlegroups.com
Buen día, Saúl.

Usa foxypreviewer, el cual te da las opciones para guardarlo como pdf o imagen, por lo que te paso un código que use alguna vez. Es para que te des una idea y lo mando llamar desde mi programa principal para que en cualquier reporte que generes puedas aprovechar las bondades de ésta gran utilidad. Obviamente, puede mejorarse en mucho lo que pongo a continuación.


IF FILE(ADDBS(gcRutaLocal)+'FoxyPreviewer.app')
   DO (ADDBS(gcRutaLocal)+'FoxyPreviewer.app')
   
   *!*   _Screen.oFoxyPreviewer.cTitle     = "Menú Personalizado para el Usuario"
   _Screen.oFoxyPreviewer.cLanguage = "SPANISH"
   _Screen.oFoxyPreviewer.nZoomLevel = 10 && initial zoom level of the preview window. Possible values are:
   _Screen.oFoxyPreviewer.oSettingsDlg.lenablechkemail = .f.
   _Screen.oFoxyPreviewer.oSettingsDlg.lenabletabemail = .f.

   
   _Screen.oFoxyPreviewer.nWindowState = 2    && 0 ó 2.
   _Screen.oFoxyPreviewer.nDockType = 0       && 0-4.
   _Screen.oFoxyPreviewer.nButtonSize = 1     && 1=16x16 ó 2=32x32
   
   _Screen.oFoxyPreviewer.lSendToEmail = .f.
   _Screen.oFoxyPreviewer.lEmailAuto = .f.
         
   *!* Guardar como
   _Screen.oFoxyPreviewer.lSaveAsHTML = .f.
   _Screen.oFoxyPreviewer.lSaveAsMHT = .f.
   _Screen.oFoxyPreviewer.lSaveAsTXT = .f.
   _Screen.oFoxyPreviewer.lSaveAsXLS = .f.
   _Screen.oFoxyPreviewer.cOutputPath = gcRutaServidor+'Pdf\'
   
   WITH _Screen.oFoxyPreviewer.oSettingsDlg
    .lEnableTabPdf        = .T.
    .lEnableLanguage      = .F.
    .lEnableChkSaveasTxt  = .F.
    .lEnableChkSaveasHtml = .F.
     .lenablechkcopies = .f.
     .lenablechkprinters = .t.
     .lenablechksaveashtml = .f.
     .lenablechksaveasmht = .f.
     .lenablechksaveastxt = .f.
     .lenablechksaveasxls = .f.
     .lshowtabgeneral = .f.
     .lenablelanguage = .f.
     .lenablechksettings = .t.
     .lenabletabcontrols = .t.
     .lenabletabemail = .f.
     .lenabletaboutput = .f.
     .lenabletabpdf = .f.
     .lenabletabxls = .f.
     .lshowlanguage = .f.
     .lenabletabxls = .f.
   ENDWITH 
ENDIF


Saludos desde México, D.F.

Rafael Olivares Giraldo

unread,
Aug 30, 2017, 9:25:39 AM8/30/17
to Comunidad de Visual Foxpro en Español
Hola amigos, gracias por aportarnos de su conocimiento y esfuerzo, estoy buscando lo mismo, he intentado con las dos opciones planteadas y ninguna logra correr en mi codigo, sera por culpa de mi versión foxpro 7? Pueden ayudarme en esta versión 

ZeRoberto

unread,
Aug 30, 2017, 9:30:41 AM8/30/17
to publicesvfoxpro
Necesariamente tiene que ser en jpg o png? y porque no pdf o xps

Saludos

Rafael Olivares Giraldo

unread,
Aug 30, 2017, 9:35:50 AM8/30/17
to Comunidad de Visual Foxpro en Español


El miércoles, 27 de noviembre de 2013, 10:45:13 (UTC-5), Saúl Piña escribió:
Pues eso, me han solicitado que un reporte lo desean como imagen para agregarlo en algun archivo de word, se puede,

Como siempre muy agradecido...

Siii le necesito en Jpg, pues quiero todos los datos e imágenes que tengo en el reporte frx volverlos una sola imagen, Gracia Ze Roberto

ZeRoberto

unread,
Aug 30, 2017, 9:47:17 AM8/30/17
to publicesvfoxpro
Podrias usar FoxyPreviewer lo otro es que podrias usar el driver de impresora Virtual ImagePrinter

Saludos


Reply all
Reply to author
Forward
0 new messages