Re: xls --> pdf | Sujet: Re: xls --> pdf par drcharly93 sur 23/6/2009 17:36:59
Bonjour,
Il suffit tout simplement d'ouvrir une feuille avant d'affecter l'imprimante
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 = Vrai
MaFeuilleXLS>>Workbooks>>Open( sFichierXLS ) //Ici on ouvre la feuille
// Ouverture d'un classeur d'Excel
//Info(MaFeuilleXLS>>ActivePrinter)
//MaFeuilleXLS>>Range("A1:P49")>>Select
Info( MaFeuilleXLS>>ActivePrinter)
MaFeuilleXLS>>ActivePrinter = "PDFCreator sur Ne00:"
Ce code à été testé
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|