Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige