Sub ExportToPDF()
Dim MyFullName As String
 
MyFullName = "C:\Weekly_Report\TestFileName.pdf" ' PROMJENITE PUTANJU I NAZIV FAJLA NA ODGOVARAJUĆI NAČIN

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName, _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub