Busca en el foro: Word.Application
Si tienes una versión reciente de FWH podrías dibujarlo con la clase Printer y salvarlo como archivo pdf.
Saludos
#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 nilMUCHACHOS MUCHAS GRACIAS!!!!
Lamentablemente no tengo la versión mas nueva.... Pero me quedo muy claro.
Muchas gracias.
// 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
//----------------------------------------------------------------------------//