Message de rapport:
 

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
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2