ConvertFileToPDF

Cette fonction permet de convertir au format PDF un fichier

function ConvertFileToPDF(filename: String; timeout: Integer = 30000): String

filename: nom du fichier à convertir

timeout: délai maximum de création du fichier PDF en millisecondes

string: nom du fichier PDF converti (avec le chemin). Vide si la création échoue.

Remarques

Cette fonction nécessite l'installation de l'imprimante Qubes PDF
Elle ne fonctionne pas directement sur les Offices <2010, il faut modifier la commande d'impression de Word dans la base de registre.

Corrections à apporter dans la base de registre
La ligne à modifier se trouve pour les fichiers doc dans:

HKCR>Word.Document.8>shell>Print>Command, puis dans la clé par défaut.

et pour les fichiers docx:

HKCR>Word.Document.12>shell>Print>Command, puis dans la clé par défaut.

Ligne correcte pour Word 2003:

C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE" "%1" /q /n /mFilePrintDefault /mFileExit

Ligne correcte pour Word 2007:

C:\Program Files\Microsoft Office\OFFICE12\WINWORD.EXE" "%1" /q /n /mFilePrintDefault /mFileExit

Ligne correcte pour Word 2010:

C:\Program Files\Microsoft Office\OFFICE14\WINWORD.EXE" /i "%1"

var s:string;
s:=ConvertFileToPDF(,10000);