Hi ,
I solved it with these lines code.
ThanksSub Macro1() Dim Sd As String Dim Fd As String Sd = "01/01/22 09:00:00" Fd = "12/01/22 09:00:00" Application.DocumentExport FileName:="C:\Users\Max\Documents\Gantt1.pdf", FileType:=pjPDF, IncludeDocumentProperties:=True, IncludeDocumentMarkup:=False, ArchiveFormat:=False, FromDate:=Sd, Todate:=Fd End Sub
Lac37