Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

ActiveSheet als PDF

Forumthread: ActiveSheet als PDF

ActiveSheet als PDF
22.06.2022 04: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 07: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

Forumthreads zu verwandten Themen

Anzeige
Anzeige