Re: xls --> pdf

Posté par fredo78310 le 26/6/2009 15:19:19

voila, j'ai galéré a imprimer le document ....
mais voila la réponse ( pour la communauté


MaFeuilleXLS est un objet Automation dynamique
sFichierXLS est une chaîne = "c:\test.xls"


// Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
// Récupération de l'instance de Excel existante
MaFeuilleXLS = ObjetActif("Excel.Application")
SINON
// Allocation de l'objet automation "MaFeuilleXLS"
MaFeuilleXLS = allouer un objet Automation "Excel.Application"
FIN

// Excel n'st pas visible si vous voulez le rendre visible
// changez a valeur à vrai
MaFeuilleXLS>>Visible = Faux
MaFeuilleXLS>>Workbooks>>Open( sFichierXLS ) //Ici on ouvre la feuille

// Ouverture d'un classeur d'Excel

//donne l'imprimante par défaut
Info( MaFeuilleXLS>>ActivePrinter)
//sélectionne l'imprimante "pdf créator"
MaFeuilleXLS>>ActivePrinter = "PDFCreator sur Ne01:"
//info sur l'imprimante
Info(MaFeuilleXLS>>ActivePrinter)

//imprime le document en pdf
MaFeuilleXLS>>ActiveWindow>>SelectedSheets>>PrintOut(1)

//bien penser a configurer les options de PDF créator pour que cela s'enregistre automatiquement avec le nom du document

enfin, gros merci