Re: xls --> pdf |
Sujet: Re: xls --> pdf par fredo78310 sur 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 |