WORD O PDF?

[ozono1981]

Estimados

Necesito crear desde mi sistema un documento en WORD o PDF el cual incluya imagenes y datos extraidos desde el sistema y no se como comenzar. es una especie de CERTIFICADO o DIPLOMA

Alguien me puede orientar?

Agradecido!!!

[cnavarro]

Busca en el foro: Word.Application

[horacio]

Si tienes una versión reciente de FWH podrías dibujarlo con la clase Printer y salvarlo como archivo pdf.

Saludos

[cmsoft]

Una forma muy basica pero util, seria que crees el diploma con un graficador en jpg y luego le completes los datos de tu sistema, usando como dice Horacio, la clase print.
Ejemplo:

Code: Select all  Expand view

#include "Fivewin.ch"
STATIC FUNCTION PrintDiploma()
LOCAL oPrn, oFont
   DEFINE FONT oFont NAME "COURIER NEW" SIZE -40,80
   PRINT oPrn NAME "Diploma" PREVIEW MODAL
   PAGE
    oPrn:SayImage(0,0, "diploma.jpg", oPrn:nHorzRes(), oPrn:nVertRes() ,   nil, .t. )
    oPrn:Say( 100,100 , MiTabla->nombre,oFont )
    oPrn:Say( 200,100 , MiTabla->titulo,oFont)
    .... // Y todos los datos que quieras agregar
   ENDPAGE
   ENDPRINT
RETURN nil
 

Una vez que lo tienes en el Preview, lo puedes grabar el usuario final como Word o Pdf con el mismo preview
Espero te sirva

[ozono1981]

MUCHACHOS MUCHAS GRACIAS!!!!


Lamentablemente no tengo la versión mas nueva.... Pero me quedo muy claro.

Muchas gracias.

[carlos vargas]

corel.prg, de la carpeta samples de fwh creo recordar que esta aun en versiones viejisimas.

Code: Select all  Expand view

// Using CorelDraw to generate printing templates!!!

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   LOCAL oPrn, oFont, oIni, oPrinter

   PRINTER oPrn PREVIEW

      DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-12 OF oPrn

      PAGE

      #ifdef __CLIPPER__
         oPrn:ImportWMF( "Invoice.Wmf" )
      #else  
         oPrn:ImportWMF( "Invoice.emf" )
      #endif  

      oPrn:CmSay(  2.1,   16, "19960001")             // invoice
      oPrn:CmSay(  4.3,  1.7, "Computer Associates")  // company name
      oPrn:CmSay(  5.5,  1.7, "Somewhere in U.S.A.")  // adress
      oPrn:CmSay(  7  ,  1.7, "0001")                 // reference
      oPrn:CmSay(  7  ,  4.2, "Software consulting")  // description
      oPrn:CmSay(  7  , 18.5, "0")                    // price
      oPrn:CmSay( 16  , 18.5, "0")                    // total

      ENDPAGE

      PAGE

      #ifdef __CLIPPER__
         oPrn:ImportWMF( "Invoice.Wmf" )
      #else  
         oPrn:ImportWMF( "Invoice.emf" )
      #endif  

      oPrn:CmSay(  2.1,   16, "19960002")              // invoice
      oPrn:CmSay(  4.3,  1.7, "Microsoft Corporation") // company name
      oPrn:CmSay(  5.5,  1.7, "Somewhere in U.S.A.")   // adress
      oPrn:CmSay(  7  ,  1.7, "0002")                  // reference
      oPrn:CmSay(  7  ,  4.2, "Another test")          // description
      oPrn:CmSay(  7  , 18.5, "0")                     // price
      oPrn:CmSay( 16  , 18.5, "0")                     // total

      ENDPAGE

   ENDPRINT

   oFont:End()

   MsgInfo( "Work done!", "Look at your printer" )

return nil

//----------------------------------------------------------------------------//