Convertir Excel en PDF : problème de mise en page
Bonjour,
J'ai développé un outil d'aide à la décision, et je souhaite à la fin de ma procédure convertir mes feuilles Excel en PDF. Tous fonctionne bien, mais j'ai un soucis sur deux feuilles.
En effet, j'ai une de mes feuilles qui est assez large et au format portrait les informations s'affiche bien mais ça reste petit. J'ai donc convertis la feuille en question au format paysage. Le problème même en format paysage, la convertion PDF ce fait bien en PDF mais la taille de mon tableau garde les mêmes proportions de taille qu'au format portrait.
Voici la fonction que j'utilise pour convertir en PDF :
Peut être y a t il des propriétés que je n'utilise pas.
Code:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
|
Private Sub ToPdf(filiere, transporteur_nom, ledir, fichier_model, sDossier)
timestamp = Format(Now, "dd-mm-yyyy-hhnnssms")
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomPdf = "azert- " & zertyu & " - " & timestamp & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = sDossier
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
tmp = 1
End Sub |
Cordialement
