Zaslal/a
19.7.2016 9:42Ahoj
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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.