Ver Mensaje Individual
  #9  
Antiguo 09-05-2018
manelb manelb is offline
Miembro
 
Registrado: mar 2017
Posts: 280
Reputación: 8
manelb Va por buen camino
Gracias Quique.
Con tus indicaciones y la ayuda de todos parece que finalmente lo he conseguido.

He tenido que hacer algunas pequeñas variaciones para que tu codigo me funcione, pero supongo que debe ser por las diferentes versiones del PDFCreator.

Por ejemplo:
1.-He cambiado
Código Delphi [-]
PdfCreator.Initialize();
por
Código Delphi [-]
PdfCreator.Initialize;
sin parentesis. Con paréntesisi me daba error.

2.- He tenido algun problema con
Código Delphi [-]
oTrabajo.ConvertTo( RutaGuardar+'\'+NombreFichero+'.pdf' );
Hasta que he descubierto que la ruta es sensible a mayúsculas/minúsculas.

3.-Esta línea también me daba error
Código Delphi [-]
PdfCreator.cClose;
y la he substituido por

Código Delphi [-]
PDFCreator.ReleaseCom;

tal y como he visto que recomendaban en la documentación oficial que comentaba el compañero TOPX más arriba.

4.-Otra cuestión que me ha entretenido ha sido conseguir que no se abriera el pdf una vez creado.
Lo he conseguido con
Código Delphi [-]
oTrabajo.SetProfileSetting('OpenViewer','False');
teniendo en cuenta que el parámetro booleano se tenia que passar como string.

Bien..., creo que eso es todo.
Gracias a todos por la ayuda.
Responder Con Cita