VBA-Code: Befehlsschaltfläche zum Speichern des aktiven Arbeitsblatts als PDF
Private Sub CommandButton1_Click()
reenUpdating = False
ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\PDF\", _
OpenAfterPublish:=False
reenUpdating = True
End Sub
Hinweis: Im Code ist CommandButton1 der Name der Befehlsschaltfläche, mit der Sie das aktive Blatt als PDF-Datei speichern. "C: \ PDF \ " ist der Pfad und Name Ihrer gespeicherten PDF-Datei. Excel vba als pdf speichern di. 6. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster. Dann schalten Sie die aus Entwurfsmodus unter dem Entwickler:in / Unternehmen Tab. Klicken Sie nun auf die Befehlsschaltfläche. Das aktive Arbeitsblatt wird als PDF-Datei mit dem Namen Export gespeichert und befindet sich am angegebenen Speicherort. Speichern Sie jedes Arbeitsblatt als einzelne PDF-Datei der aktiven Arbeitsmappe mit Kutools for Excel
Hier empfehlen die Arbeitsmappe teilen Nutzen von Kutools for Excel um das aktive Arbeitsblatt einfach als PDF-Datei zu speichern.
- Excel vba als pdf speichern gratis
- Excel vba als pdf speichern free
- Excel vba als pdf speichern di
- Excel vba als pdf speichern model
- Excel vba als pdf speichern de
Excel Vba Als Pdf Speichern Gratis
11. 07. 2014, 06:47
# 1
Martin06
Excel 2013 - Excel mit Makro als Pdf speichern
Hallo
Ich möchte gerne eine Excel Datei via Makro automatisch als PDF speichern. Der Dateiname der PDF sollte:
Den Zeileninhalt F5 haben + das aktuelle Datum
Ist das möglich in dieser Excel Datei eine Schaltfläche (Button) einzufügen auf den ich dann drücke und in den Speicherort der Datei automatisch mit dieser Dateibezeichnung eine PDF gespeichert wird? Das wäre super
Bin da leider total überfragt wie das funktioniert. Bitte um hilfe
Danke
11. Wie verwende ich die Befehlsschaltfläche, um ein aktives Arbeitsblatt als PDF-Datei in Excel zu speichern?. 2014, 09:16
# 2
MOF Guru
Registrierung: 10. 2006
Hi,
Code:
Sub aktivesBlattToPdf()
ChDir "c:\Temp\" 'anpassen 'oder
ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5") & Format(Date, "YYYYMMDD") & "", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
__________________
Gruß Chris Feedback nicht vergessen,
p. s Bitte keine PN (persönliche Nachrichten) mit Aufgabenstellungen schicken, Probleme sollten im Forum gelöst werden!
Excel Vba Als Pdf Speichern Free
Wer viel mit Microsoft Office und Excel arbeitet, kommt manchmal an einen Punkt, wo eine Massenbearbeitung erforderlich ist. Eine solche Massenbearbeitung kann auch das Exportieren eines bzw. mehrerer Excel-Tabellenblätter als PDF-Datei sein. Klassischer Weise würde man in neueren Excel-Versionen über den Dialog Datei => Exportieren => PDF/XPS-Dokument erstellen gehen. Herkömmliche Vorgehensweise für den PDF-Export in Excel
Diese Vorgehensweise kommt aber schnell an ihre Grenzen, wenn man Exceldateien hat, welche 30 und mehr Tabellenblätter beinhalten. VBA Code PDF-Export
Mittels VBA lässt sich das sehr gut automatisieren und damit viel Zeit sparen. Mit VBA nutzt man einen der großen Vorteile von Microsoft Office, was andere Office-Programme in dieser ausgereiften Form nicht bieten. Und außerdem sind auch noch uralte VBA-Skripte kompatibel mit neueren Office-Versionen. Den folgenden VBA-Code verwendet man um mehrere Tabellenblätter einer Exceldatei zu durchlaufen. Speichern als PDF und Drucken. Den Befehl tivate muss man nicht zwingend verwenden.
Excel Vba Als Pdf Speichern Di
Dieser ruft jedes Tabellenblatt einzeln auf. So kann man schön zuschauen, macht den eigentlichen Export aber etwas langsamer. Public Sub ExportEverySheetAsPDF()
Dim WsTab As Worksheet
For Each WsTab In Sheets
tivate
PDF_Print_Sheet
Next WsTab
End Sub
Die Funktion PDF_Print_Sheet im oben genannten Code übernimmt dem eigentlichen PDF-Export. Damit das klappt, muss man die Funktion wie folgt implementieren:
Private Sub PDF_Print_Sheet()
ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\Users\User\Desktop\" & & "", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Innerhalb dieser Funktion muss noch individuell Speicherort ( c:\Users\User\Desktop*) angepasst werden, wo die PDF-Dateien gespeichert werden sollen. Excel vba als pdf speichern model. Als Dateiname wird im obigen Beispiel der jeweilige Name des Tabellenblatts ( *) verwendet. Möchte man individuelle Dateinamen für die PDF-Files vergeben, oder differenzierte Speicherorte oder wenn man auch auf tivate verzichten will, dann muss man die Funktion PDF_Print_Sheet() um entsprechende Übergabeparameter anpassen.
Excel Vba Als Pdf Speichern Model
ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True _
Sheets("Import") 'Import ist Sheet 1, wo die Daten eingespielt werden
MsgBox "Datei als PDF gespeichert unter " & strFileName, 64, "Hinweis"
End Sub
Das Problem - wozu ich leider auch rein Garnichts finde - ist, dass nur die erste und fünfte Seite eine vernünftige Skalierung beim speichern als hat. Alle anderen Seiten haben viel freie Fläche und die Dienstpläne sind so klein, dass man die Seiten nicht zum aushändigen ausdrucken kann. Die Abteilungen liegen zwischen 4 und 28 Mitarbeitern, was die "länge" jeder Seite entsprechend definiert - die Anzahl und Breite der Spalten sind immer identisch, nur die Anzahl Zeilen wird durch die Anzahl Mitarbeiter bestimmt. Makro - Speichern unter als PDF. Aber z. B. Abteilung 2 ist die größte Abteilung und der Inhalt ist ganz klein gedruckt. Seite 5 ist eine kleine Abteilung, aber der Text ist super groß und gut lesbar im
Ziel ist es natürlich, dass am Besten alle Seiten (egal wie viele Zeilen) die Seite gänzlich ausfüllen (z. wie bei der Druckeinstellung: Querformat, Blatt auf ganzer Seite anzeigen, nur markieren Bereich drucken, ggf.
Excel Vba Als Pdf Speichern De
Speichern als PDF und Drucken von Tino vom 22. 02. 2017 20:19:57
AW: Speichern als PDF und Drucken - von Tino am 23. 2017 07:01:54
Betrifft: Speichern als PDF und Drucken
von: Tino
Geschrieben am: 22. 2017 20:19:57
Guten Abend liebe Profis,
ich habe in den letzten Wochen immer wieder versucht ein Problem zu lösen und vermute das ich eine falsche Rangehensweise hatte. Excel vba als pdf speichern gratis. Nun möchte ich euch mein Ergebnis Schildern und hoffe auf eure bisher immer sehr hilfreichen Lösungen. Ich schreibe Täglich ein Protokoll für meinen Chef und den Kunden.
& _
String(2, vbCr) & _
"Fehlernummer " & & vbCr & _
"Grund: " & scription, _
Buttons:=vbCritical
Resume Save_End
Ich bekomme es irgendiwe nicht hin, dass der den vorherigen Ordner und Dateinamen beim exportieren übernimmt... Danke schon mal im voraus!