Tabelle als pdf exportieren

[snowman]

Guten Morgen,

Ich möchte auch das aktive Tabellenblatt per Makro als pdf exportieren. Dabei sollte der Name auch gleich aus einer Zelle übernommen werden.

Den unten aufgeführten Code habe ich aus einem Youtube-Video, aber leider gibt es eine Fehlermeldung.
Kann mir jemand helfen? Und vielleicht noch erklären, was es mit den Unterstrichen auf sich hat?

Danke Björn


Sub Makro6_aktivesBlattToPdf()
ChDir ThisWorkbook.Path
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Range ("A1").Value & Format (Date, "DDMMYYYY") & ".pdf", Quality:=xlQualityStandard, _
    ActiveSheet.PageSetup.Orientation = xlLandscape, _

    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
   


End Sub

[RPP63]

Moin!
Warum hängst Du Dich hier ran?
Schließlich hat das nix mit der Frage des TE zu tun!

Zum Thema:
Schaue weniger Videos und besser die entsprechende Hilfeseite der Methode an:
https://docs.microsoft.com/de-de/office/...ixedformat

Unterstriche bedeuten, dass es "eigentlich" eine einzige Zeile ist.
Du stückelst mit der Orientation einfach mal was rein, was da nix zu suchen hat (siehe auch meinen Link).
Außerdem ist es unnötig, defaults anzugeben, denn dies ist (schlechter) Rekorder-Code.
CHDir ins Verzeichnis der Datei ist ebenfalls überflüssig.

ActiveSheet.ExportAsFixedFormat xlTypePDF, Range ("A1") & Format (Date, "ddmmyyyy")

reicht aus.
(wobei ich den Date-Stamp eher im Format yyyymmdd setzen würde)

Gruß Ralf

[schauan]

Hallöchen

Warum hängst Du Dich hier ran?

Günter hat den Thread inzwischen wohl geteilt

kleine Ergänzung:
also, falls die Orientation, warum und wo auch immer, normalerweise anders gespeichert und benötigt wird, dann von der Reihenfolge her so:

ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.ExportAsFixedFormat xlTypePDF, Range ("A1") & Format (Date, "ddmmyyyy")

[snowman]

Hallo Ralf,

vielen Dank für den Link und deine Erklärungen. Das hat mir schon sehr geholfen!
Ich verstehe eh lieber, was ich da so mache, statt Sachen blind abzutippen.
Aber manchmal muss man halt auch einen ersten Schritt so machen.

Liebe Grüße

Björn

PS: Sorry, an den TE fürs kapern...