Salida a PDF y visualización SOLUCIONADO

[leondefrancia]

Estoy generando los reportes desde tprinter pero el preview no logro hacerlo funcionar las fuentes me quedan deformadas, necesitaría hacer la salida a pdf y luego visualizar ese pdf.
Alguien ha hecho algo similar?

[groiss]

Hola:
Echa un vistazo a este enlace.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=20328#p107841

Un saludo
José Luis

[leondefrancia]

Muchas gracias José Luis, ya había probado esa alternativa y me produce error de memoria insuficiente (y eso que tengo 4 gigas) así que quería una opción distinta.
Acabo de encontrar que el PDFCreator te permite saltearte el "Guardar como" configurando una ruta destino y también configurar el nombre del archivo (ejemplo titulo+datetime).
En cuanto lo pruebe si funciona lo posteo.

[Sebastián Almirón]

Yo uso PDFCreator modificando los valores en el registro antes del TPrinter:

oreg := treg32():New(HKEY_CURRENT_USER,"Software\PDFCreator\Program",.f.)
oreg:set('AutosaveFilename','Acuse_Pedido_'+trimstr(nencargo)+'.PDF')
oreg:set('AutosaveDirectory', aconfig[2]) //aconfig[2] es el directorio donde se guarda
oreg:set('UseAutosave', '1')
sysrefresh()

Si quieres que se abra con el programa visor de PDF por defecto (ej. Acrobat)
oreg:set('AutosaveStartStandardProgram', '1')

Saludos

[leondefrancia]

Gracias Sebastián, hice eso mismo configurandolo desde el mismo PDFCreator y los resultados son bárbaros.

[zazibr]

a nova versão do pdfcreator nao suporta mais esses parametros seria possivel alguem enviar essa versão do pdf creator que funciona com essas informações no registro ?

[Lautaro]

Hola a todos,

El pdfcreator también tiene una interface COM ( OLE ) y no es necesario alterar el registro para usarlo, el manual esta bien documentado.

atte.,

Lautaro Moreira

[zazibr]

teria exemplo em xharbour ?

[Lautaro]

Daniel,

Aqui va un ejemplo en harbour ( no uso xharbour )

Code: Select all  Expand view

....
....
procedure configpdf(cstartflag,aparams)

local opdfcomm
oPDFComm := tOleAuto():New( "PDFCreator.clsPDFCreator" )

   IF Len(AllTrim(cStartFlag)) > 0
      oPDFComm:cStart(cStartFlag)
   ELSE
      oPDFComm:cStart()
   ENDIF
   oPDFComm:cClearCache()

// Damos valores de configuracion
   oPDFComm:_cOption("UseAutoSave",aparams[1])
   oPDFComm:_cOption("UseAutoSaveDirectory",aparams[1])
   oPDFComm:_cOption("AutoSaveFilename",aparams[1])
   oPDFComm:_cOption("AutoSaveDirectory",aparams[1])
   oPDFComm:_cOption("AutoSaveStartStandardProgram",aparams[1])
   oPDFComm:_cOption("AutoSaveFormat",aparams[1])
   oPDFComm:_cOption("PDFUseSecurity",aparams[1])
   oPDFComm:_cOption("PDFUserPass",aparams[1])
   oPDFComm:_cOption("PDFUserPasswordString",aparams[1])
   oPDFComm:_cOption("PDFOwnerPass",aparams[1])
   oPDFComm:_cOption("PDFOwnerPasswordString",aparams[1])
 
   oPDFComm:cSaveOptions()

return

....
....
 

Los nombre de las propiedades y metodos estan en la documentacion del pdfcreator, así, te evitas el modificar el registro.

Atte.,

Lautaro Moreira