Nemôžete ukladať priamo pod disk C: (to platí hlavne pri Win10)
Vytvorte tam zložku napr. PDF a zmente v kóde
Filename:= "c:\excel-tisk-uvod.pdf"
na
Filename:= "c:\PDF\excel-tisk-uvod.pdf"
Skúste, či je to tým.
EDIT:
Inak tie Vaše makrá, aj logiku pomenovania súborov by som určo zmenil napr. minimálne takto :
-Module2 úplne odstráňte
-V Module1 všetko vymažte a dajte tam:
Sub vymaz_prijmy() ' vymaz_prijmy Makro
Range("C4:D5").ClearContents
Range("C4").Select
End Sub
Sub vymaz_vydaje() ' vymaz_vydaje Makro
Range("C11:C16,I11:I16,K11:K15,C23:K28,C33:K44,C50:E57,J50:K53").ClearContents
Range("C11").Select
End Sub
Sub vymaz_bydleni() ' vymaz_bydleni Makro
Range("C11:C16").ClearContents
Range("C11").Select
End Sub
Sub vymaz_uvery() ' vymaz_uvery Makro
Range("I11:I16,K11:K15").ClearContents
Range("I11").Select
End Sub
Sub vymaz_auto() ' vymaz_auto Makro
Range("C23:K28").ClearContents
Range("C23").Select
End Sub
Sub vymaz_provozni() ' vymaz_provozni Makro
Range("C33:K44").ClearContents
Range("C33").Select
End Sub
Sub vymaz_fixni() ' vymaz_fixni Makro
Range("C50:E57").ClearContents
Range("C50").Select
End Sub
Sub vymaz_OSVC() ' vymaz_OSVC Makro
Range("J50:K53").ClearContents
Range("J50").Select
End Sub
Sub tisk_uvod() ' tisk_uvod Makro
Dim Nazev As String, Slozka As String
Slozka = "C:\PDF\"
With ActiveSheet
Nazev = Slozka & IIf(.Name = "Úvod", .Range("L5").Value2 & " - roční přehled.pdf", .Range("H3").Value2 & " - rozvaha nákladů " & UCase(Format(DateSerial(2018, Val(.Name), 1), "mmmm")) & ".pdf")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nazev, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub
Všetky tie ".Select", čo tam ostali sa dajú nahradiť za ".Activate", alebo za "Application.Goto prvá_bunka", všetko podľa toho, či je/nieje pred stlačením niečo označené, ak áno či sa má zachovať výber, či sa má skočiť na prvú bunku mazanej oblasti + či sa má naskrolovať, alebo sa nemá nič robiť okrem zmazania, a pod.
Predpokladá sa že máte adresár C:\PDF vytvorený, a názvy súborov sa robia podľa aktívneho listu a mena zákazníka v ňom. Teda sa predpokladá, že mená listov sú presne tak, ako sú v príklade.
citovat