MS Excel

Téma: Generovanie PDF z listu vs číselník

Zaslal/a Martin89 19.7.2016 9:42

Ahoj
potreboval by som poradiť. Mám tento kód a rád by som, aby sa mi generovali PDF vždy pod názvom "výjezd" + číslo a to číslo by sa malo priraďovať automaticky. Následne ten súbor by sa mal ukladať v jednej zložke.
Ďakujem

Public Function exportpdf() As String
Dim counter As Single
Dim tmp As String
counter = 1
tmp = "P:\2016\PDF\výjezd" & ".PDF"

Do While Dir(tmp) <> ""
tmp = "P:\2016\PDF\výjezd" & ".PDF"
counter = counter + 1
Loop

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tmp, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
exportpdf = tmp
End Function