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!!!
WORD O PDF?
Re: WORD O PDF?
Busca en el foro: Word.Application
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Re: WORD O PDF?
Si tienes una versión reciente de FWH podrías dibujarlo con la clase Printer y salvarlo como archivo pdf.
Saludos
Saludos
Re: WORD O PDF?
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:
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
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
Espero te sirva
Re: WORD O PDF?
MUCHACHOS MUCHAS GRACIAS!!!!
Lamentablemente no tengo la versión mas nueva.... Pero me quedo muy claro.
Muchas gracias.
Lamentablemente no tengo la versión mas nueva.... Pero me quedo muy claro.
Muchas gracias.
- carlos vargas
- Posts: 1421
- Joined: Tue Oct 11, 2005 5:01 pm
- Location: Nicaragua
Re: WORD O PDF?
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
//----------------------------------------------------------------------------//
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
Carlos Vargas
Desde Managua, Nicaragua (CA)