Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ActiveSheet als PDF

Forumthread: ActiveSheet als PDF

ActiveSheet als PDF
22.06.2022 02:40:49
.Uwu..
Guten Morgen
per Commandbutton geht mein Makro in die gewünschte Tabelle, öffnet das Druckerfeld (für Auswahl der Drucker) - in meinem Fall der PDF Drucker und speichert anschließend die Tabelle als PDF in den von mir gewünschten Ordner. Dieses Makro läuft mehrfach durch, sodass ich am Ende ca 5 händisch erzeugte PDFs habe.
Gibt es ein Möglichkeit (per VBA) die Arbeitsmappe gleich als PDF mit Name (Inhalt einer Zelle der Tabelle) auf den Desktop zu speichern. (also ohne manuelle Eingabe des Namens und Auswahl des "PDF" Druckers.
Ich habe bisher das probiert - leider mit Error

Sheets(Tabelle1).ExportAsFixedFormat Type:=xlTypePDF, Filename:= Range("C7")
"C:\Users\Name\Desktop\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveSheet als PDF
22.06.2022 05:23:50
ralf_b
klar gibt es das.
Entweder du stellst den Standarddrucker kurzzeitig um

Sub druckenpdf()
Dim aktPrinter As String
aktPrinter = ActivePrinter
ActivePrinter = "Microsoft Print to PDF auf Ne02:"  'ändern auf deinen pdfdrucker plus Port
'dein code ...
ActivePrinter = aktPrinter
End Sub
oder du nutzt eine andere Druckmethode, bei welcher du den Druckernamen mitgeben kannst.
Worksheet.PrintOut-Methode

deinworksheet.PrintOut (From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
https://docs.microsoft.com/de-de/office/vba/api/excel.worksheet.printout
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige