Discussion :

[law56100]

Bonjour

J'ai un répertoire avec 4000 fichiers excel que je transforme en pdf.

Mon soucis c'est : si j'imprime certain fichier excel avec mon imprimante, j'ai une seul page. si je transforme le fichier excel en pdf avec pdfcreator, le document est sur 2 pages.

je pense que ça vient des marges de pdfcreator mais dans les options de pdfcreator, je ne trouve pas ou je peux changer manuellement. et si c'est possible de le faire par programmation ca serait encore mieux.

Pour imprimer en pdf, j'ai réalisé une classe, voici quelques lignes de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
CPDFCreator est une classe
	//Objet pilotant PDF Creator
	oPDF est un objet OLE dynamique
	//Objet permettant de gérer les erreurs PDF Creator
	oPDFError est un objet OLE dynamique
	//Objet permettant de piloter les options de PDF Creator
	oPDFOptions est un objet OLE dynamique
	bDebug est un booléen
	sMessErr est une chaîne
FIN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROCEDURE Constructeur(_bDebug est un booléen=Vrai)
:bDebug = _bDebug
:oPDF = ObjetActif("PDFCreator.clsPDFCreator")
:oPDFError = ObjetActif("PDFCreator.clsPDFCreatorError")
:oPDFOptions = ObjetActif("PDFCreator.clsPDFCreatorOptions")
SI :oPDF = Null ALORS
	:oPDF = allouer un objet OLE "PDFCreator.clsPDFCreator"
FIN
SI :oPDFError = Null ALORS
	:oPDFError = allouer un objet OLE "PDFCreator.clsPDFCreatorError"
FIN
SI :oPDFOptions = Null ALORS
	:oPDFOptions = allouer un objet OLE "PDFCreator.clsPDFCreatorOptions"
FIN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
PROCEDURE ImpressionRapide(_sFichierChemin est une chaîne,_sSauvegardeAutoRepertoire est une chaîne)
SI EnModeTest() ALORS
	Trace("ClaPDFCreator:ImpressionRapide()")
FIN
SI :isDemarre() ALORS
	:Fermer()
FIN
SI PAS :Demarrer() ALORS
	RENVOYER Faux
FIN
:ClearCache()
:ClearLog()
:Set_ImprimanteDefaut()
:Set_Visible(Vrai)
:Set_SauvegardeAutoFormat(0)
:Set_SauvegardeAutoRepertoire(_sSauvegardeAutoRepertoire)
:Set_SauvegardeAutoFichierNom(fExtraitChemin(_sFichierChemin,fFichier))
:UtiliserSauvegardeAuto(Vrai)
:UtiliserSauvergardeAutoRepertoire(Vrai)
:EnAttenteImpression(Faux)
SI :isImprimable(_sFichierChemin) ALORS
	:ImprimerFichier(_sFichierChemin)
FIN
SI :isDemarre() ALORS
	:Fermer()
FIN
 
SI :Get_sMessErr() <> "" ALORS
	RENVOYER Faux
FIN
RENVOYER Vrai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
PROCEDURE ImprimerFichier(_sFichierChemin est une chaîne)
SI EnModeTest() ALORS
	Trace("ClaPDFCreator:ImprimerFichier()")
FIN
:oPDF>>cPrintfile(_sFichierChemin)
Multitâche(300)
RENVOYER Vrai

[frenchsting]

Une question, cela pourrait-il venir des polices (non true type ?). Elles seraient "mal" converties et du coup plus larges/hautes ?

Je n'ai pas (encore) trouvé d'info sur le réglage de marges sur pdf creator.

[Tober]

J'ai un programme qui fait des impressions Excel et PDF et j'ai eu donc les mêmes problèmatiques que toi à l'époque.
J'ai tenté d'utiliser PDFCreator, mais c'est compliqué pour pas grand chose. (enfin faut pas exagérer... )

Bref, Excel permet d'exporter facilement en PDF, et ça marche très bien.
Il suffit de faire quelque chose comme ça :

Code WLangage :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ObExcel:m_xExcel>>ActiveWorkbook>>ExportAsFixedFormat(0, nomPDF)
LanceAppliAssociée(nomPDF + ".pdf")

Ca marche à partir de Excel 2007 (à tester avec 2003...) mais je crois qu'il faut installer un plugin, si ma mémoire est bonne, appelé SaveAsPDFandXPS.exe qui permet d'exporter n'importe quelle feuille Excel en PDF.

En tout cas, j'ai une application qui utilise cet export PDF et ça marche très bien.