Otázky a odpovede pre Microsoft Excel a ostatné programy Microsoft Office
Vitajte, Hosť
Užívateľské meno: Heslo: Pamätať si ma

Export do PDF Excel VBA

Export do PDF Excel VBA pred 1 rokom 10 mesiacmi #6209

  • anonym
  • anonym-ov Avatar
  • Odhlásený
  • Junior Member
  • Príspevkov: 27
  • Karma: 0
Vedeli by ste mi poradiť ohľadne jedného vba kódu?
malo by to vytlačiť zvolený hárok do pdf - názov hárku si berie z bunky D12, kód mám priradený k tlačidlu, celkom to funguje, len musím ručne zadať názov súboru - myslela som, že to nastavím na ten názov hárku, ale nefunguje to... ( PrToFileName:=(A))
Sub tlac_pdf()
A = Range("D12").Value2

Worksheets(A).PageSetup.PrintArea = ""
Worksheets(A).PageSetup.Orientation = xlLandscape '1
Worksheets(A).PrintOut Preview:=True, Copies:=1, ActivePrinter:="doPDF v7", PrintToFile:=True, PrToFileName:=(A)


End Sub 
Vďaka
Lucia
Posledná úprava: pred 1 rokom 10 mesiacmi od @dmin.
The administrator has disabled public write access.

Export do PDF Excel VBA pred 1 rokom 10 mesiacmi #6210

  • @dmin
  • @dmin-ov Avatar
  • Odhlásený
  • Moderátor
  • Príspevkov: 55
  • Získaných poďakovaní 2
  • Karma: 0
Pozeral som si Váš zdrojový kód. Po spustení mi nevypisuje žiadnu chybu, iba sa mi zobrazí v náhľade pred tlačou do PDF (?). Ja Vám však pripájam vlastný kód, ktorý ukladá PDF do aktuálneho priečinka pod názvom hodnoty v bunke D12. V prílohe nájdete dané makro.
Option Explicit
Sub ExportToPDF()
'
' ExportToPDF Makro
'
    Dim relativePath, fileName As String
    fileName = Range("D12").Value & ".pdf"
    relativePath = ThisWorkbook.Path & "\" & fileName
    'Debug.Print relativePath
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
        relativePath, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Pripájam priložený súbor.

Priložený súbor:

Názov: ExportToPDF.xlsm
Velkost:15 KB


A.
The administrator has disabled public write access.

Ak máte záujem o školenie Excel vo vašej firme, viac informácií nájdete na školenie Excel.

Na Vaše otázky vo fóre odpovedá Mgr. Ján Žitniak, viac informácií kliknutím sem.

Čas vytvorenia stránky: 0.116 sekúnd