Page 1 of 1
WORD O PDF?
Posted: Wed Jul 08, 2015 7:01 pm
by 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!!!
Re: WORD O PDF?
Posted: Wed Jul 08, 2015 7:14 pm
by cnavarro
Busca en el foro: Word.Application
Re: WORD O PDF?
Posted: Wed Jul 08, 2015 11:03 pm
by horacio
Si tienes una versión reciente de FWH podrías dibujarlo con la clase Printer y salvarlo como archivo pdf.
Saludos
Re: WORD O PDF?
Posted: Thu Jul 09, 2015 12:42 pm
by 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
#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
Re: WORD O PDF?
Posted: Thu Jul 09, 2015 3:14 pm
by ozono1981
MUCHACHOS MUCHAS GRACIAS!!!!
Lamentablemente no tengo la versión mas nueva.... Pero me quedo muy claro.
Muchas gracias.
Re: WORD O PDF?
Posted: Thu Jul 09, 2015 4:36 pm
by carlos vargas
corel.prg, de la carpeta samples de fwh creo recordar que esta aun en versiones viejisimas.
Code: Select all
// 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
//----------------------------------------------------------------------------//