Jan2020
05.08.20,15:08
Dobrý den, potřeboval bych sešit excel ukládat do PDF pomocí makra. Mám ofiice 365. Kde bych do makra zadal cestu např: G:\PDF\klienti\Rok 2020 a aby se po kliknutí na uložit uložil a pod názvem který bude v buňce A1 Moc děkuji
elninoslov
06.08.20,00:29
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