Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Impression_TdB()
' Il faut activer la référence -> PDFCreator (Outils... -> References)
Dim PDFCreator1 As PDFCreator.clsPDFCreator
Sheets(Array("Page de garde", "Faits marquants", "Avancement objectifs")).Select
Sheets("Page de garde").Activate
Set PDFCreator1 = New PDFCreator.clsPDFCreator
If PDFCreator1.cStart("/NoProcessingAtStartup") = False Then
'creation d'un fichier de log
End If
Dim nomfichier, corpsmessage As String
nomfichier = "Test.pdf"
nomreseau = "D:\"
With PDFCreator1
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutoSaveDirectory") = nomreseau
.cOption("AutoSaveFilename") = nomfichier
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
Do Until PDFCreator1.cCountOfPrintjobs = 1
DoEvents
Sleep 100
Loop
PDFCreator1.cPrinterStop = False
Do Until PDFCreator1.cCountOfPrintjobs < 1
DoEvents
Sleep 100
Loop
MsgBox ("Fichier PDF généré >> " & nomreseau & "" & nomfichier & "")
Sheets("Page de garde").Select
End Sub