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
| Sub pdf()
Dim Vchemin As String
Dim Vnom, Vdate As String
Dim pdfcreator1 As PDFCreator.clsPDFCreator
Dim option1 As PDFCreator.clsPDFCreatorOptions
Set pdfcreator1 = New PDFCreator.clsPDFCreator
Set option1 = New PDFCreator.clsPDFCreatorOptions
Vchemin = "D:\travail\" 'chemin du dossier d'enregistrement du pdf
ChangeFileOpenDirectory Vchemin
Vdate = Format(Now, "dd.mm.yyyy")
Vnom = "newsletter_" & Vdate & ".pdf"
With pdfcreator1
.cOptions.UseAutosave = 1
.cOptions.UseAutosaveDirectory = 1
.cOptions.AutosaveDirectory = Vchemin
.cOptions.AutosaveFilename = Vnom
.cOptions.AutosaveFormat = 0 'pdf
.cOptionsNames.Count
.cStart
.cClearCache
End With
application.PrintOut Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0 ', OutputFilename:=Vnom
pdfcreator1.cClose
End Sub |
Partager