Sub UlozPDF() Dim Cesta As String Cesta = "G:\PDF\klienti\Rok 2020\" ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Cesta & ActiveSheet.Range("A1").Value & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:= _ True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub
Excel - uložit sešit do PDF