Bonsoir à tous,
En fouillant un peu sur le forum j'ai presque trouvé mon bonheur:
Sur ce fil: https://www.excel-downloads.com/threads/archiver-en-pdf.137173/
la macro de pierre93 fonctionne "partiellement"
Voici la macro avec juste une petite modif du nom de fichier et du chemin d'enregistrement:
Le problème c'est que toute la page ne s'imprime pas.
Je ne sais pas si cela vient de la mais il faut que j'imprime en orientation paysage.
Il manque le bord droit et le bas de la page.
Si quelqu'un sait comment modifier les options de sorti pour les dimensions je suis très intéressé
Merci d'avance.
En fouillant un peu sur le forum j'ai presque trouvé mon bonheur:
Sur ce fil: https://www.excel-downloads.com/threads/archiver-en-pdf.137173/
la macro de pierre93 fonctionne "partiellement"
Voici la macro avec juste une petite modif du nom de fichier et du chemin d'enregistrement:
Code:
Sub ToPdf()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = Range("D11") & " " & Range("C8")
NomPdf = Left(NomExcel, Len(NomExcel) - 0) & ".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") = "H:\feuilles doublettes"
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
Range("A1:H18").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
End Sub
Le problème c'est que toute la page ne s'imprime pas.
Je ne sais pas si cela vient de la mais il faut que j'imprime en orientation paysage.
Il manque le bord droit et le bas de la page.
Si quelqu'un sait comment modifier les options de sorti pour les dimensions je suis très intéressé
Merci d'avance.
Dernière édition: