PDF per Makro leere Seiten

Forumthread: PDF per Makro leere Seiten

18.05.2020 08:33:30

Moritz

Guten Morgen zusammen,
leider habe ich schon seit längerem ein Problem bei dem ich einfach nicht mehr weiter komme.
Ausgangsposition:
Ich habe eine Exceldatei und diese besteht aus ca 100 Tabellenblättern. Die Datei ist ca. 35 MB groß.
Innerhal eines Tabellenblatts sind sehr viele SVerweise auf andere Datein, Grafiken und bedingte Formatierungen. Vorallem die Grafiken blähen die Datei so auf.
Nun habe ich ein Makro welches jedes Tabellenblatt einzeln auswählt und es als PDF druckt.
Das wird auch ausgeführt und es gibt auch keine Fehlermeldung nur habe ich bei den letzten PDFs immer leere Seiten (Dateigröße 2KB). Hier kann ich auch nicht sagen das es immer Blatt 80 wäre. Mal ist es schon bei 55 mal erst bei 89.
Unten ist der code abgebildet.
' 2 - Warnungen & Bildschirmaktualisierung deaktivieren
Excel.Application.DisplayAlerts = False
Excel.Application.ScreenUpdating = False
' 3 - PDFs erstellen
Workbooks.Open filename:="G:\BSA\Datei.xlsm", UpdateLinks:=3
'PDFs erstellen
LastRow = Worksheets("Tabelle").Cells(Rows.Count, 44).End(xlUp).Row
For i = 4 To LastRow
A= Worksheets("Tabelle").Cells(i, 3)
Path= Worksheets("Tabelle").Cells(i, 44)
Worksheets(A).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="G:\" & Path & "\" & A & " 2020.pdf"
Next
ActiveWorkbook.Close SaveChanges:=False
' 4 - Warnungen & Bildschrimaktualisierung aktivieren
Excel.Application.DisplayAlerts = True
Excel.Application.ScreenUpdating = True
Wenn mir hier jemand helfen kann wäre das natürlich super.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PDF per Makro leere Seiten

18.05.2020 10:36:58

Daniel
AW: PDF per Makro leere Seiten

18.05.2020 10:57:55

Moritz
AW: PDF per Makro leere Seiten

18.05.2020 11:03:28

Daniel

AW: PDF per Makro leere Seiten

18.05.2020 10:36:58

Daniel

Eventuell dauert das Erstellen der Dokumente "länger" und er verschluckt sich.
Versuche mal Pausen einzubauen, damit der Rechner ein wenig mehr Zeit bekommt.

AW: PDF per Makro leere Seiten

18.05.2020 10:57:55

Moritz

Danke für den Tipp, aber was meinst du mit Pausen genau?

AW: PDF per Makro leere Seiten

18.05.2020 11:03:28

Daniel

Hiermit kannst Du ein Makro an bestimmten Stellen pausieren.
x gibt die Zeit in Millisekunden an.
Das hat bei mir auch schon oft geholfen. Gerade wenn sehr viele Daten verarbeitet werden müssen ist die Pause sehr hilfreich.

Application.Wait (x)

Infobox / Tutorial

PDF-Druck aus Excel: Leere Seiten vermeiden

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um das Problem mit leeren Seiten beim PDF-Druck aus Excel zu beheben, kannst du folgende Schritte befolgen:

Makro vorbereiten: Stelle sicher, dass du dein Makro zur Erstellung der PDFs entsprechend konfiguriert hast. Der vorhandene Code könnte wie folgt aussehen:

' 2 - Warnungen & Bildschirmaktualisierung deaktivieren
Excel.Application.DisplayAlerts = False
Excel.Application.ScreenUpdating = False

' 3 - PDFs erstellen
Workbooks.Open filename:="G:\BSA\Datei.xlsm", UpdateLinks:=3

LastRow = Worksheets("Tabelle").Cells(Rows.Count, 44).End(xlUp).Row
For i = 4 To LastRow
   A = Worksheets("Tabelle").Cells(i, 3)
   Path = Worksheets("Tabelle").Cells(i, 44)
   Worksheets(A).Activate
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="G:\" & Path & "\" & A & " 2020.pdf"
Next

ActiveWorkbook.Close SaveChanges:=False

' 4 - Warnungen & Bildschirmaktualisierung aktivieren
Excel.Application.DisplayAlerts = True
Excel.Application.ScreenUpdating = True

Pausen einbauen: Um zu vermeiden, dass Excel leere Seiten druckt, füge Pausen zwischen den PDF-Erstellungen hinzu. Du kannst das mit folgendem Befehl erreichen:
```
Application.Wait (Now + TimeValue("0:00:01")) ' 1 Sekunde warten
```
Füge diese Zeile in die Schleife nach ActiveSheet.ExportAsFixedFormat ein.
PDFs überprüfen: Stelle sicher, dass die Tabellenblätter, die du drucken möchtest, auch tatsächlich Inhalte haben. Du kannst leere Seiten entfernen, indem du die entsprechenden Blätter überprüfst.

Häufige Fehler und Lösungen

Fehler: PDF druckt leere Seiten
Lösung: Überprüfe, ob die aktiven Blätter tatsächlich Inhalte haben. Leere Seiten in PDFs entstehen oft, wenn ein Blatt keine Daten enthält.
Fehler: Leere PDF-Datei
Lösung: Füge Pausen im Makro ein, um sicherzustellen, dass Excel genügend Zeit hat, die Daten zu verarbeiten.
Fehler: Falsche Dateigröße
Lösung: Leere Seiten löschen und sicherstellen, dass die Exportfunktionen korrekt konfiguriert sind.

Alternative Methoden

Manuelles Löschen: Gehe in die PDF-Datei und lösche die leeren Seiten manuell, wenn du nur gelegentlich PDFs erstellst.
PDF-Tools: Nutze Software wie Adobe Acrobat, um leere Seiten nach dem Erstellen des PDFs zu entfernen.
Druckereinstellungen anpassen: Achte darauf, dass deine Druckeinstellungen korrekt konfiguriert sind, um leere Seiten zu vermeiden.

Praktische Beispiele

Beispiel für ein einfaches Makro: Das folgende Makro erstellt ein PDF und entfernt leere Seiten:

' PDF erstellen und leere Seiten entfernen
Sub CreatePDF()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       If Application.WorksheetFunction.CountA(ws.Cells) > 0 Then
           ws.ExportAsFixedFormat Type:=xlTypePDF, filename:=ws.Name & ".pdf"
       End If
   Next ws
End Sub

Grafiken optimieren: Reduziere die Größe von Grafiken in Excel, um die Dateigröße zu verringern und Probleme beim Drucken zu vermeiden.

Tipps für Profis

Verwende Named Ranges: Definiere Namensbereiche für die Daten, die du drucken möchtest. Dies hilft, leere Seiten zu vermeiden.
Überprüfe die Druckvorschau: Nutze die Druckvorschau, um sicherzustellen, dass keine leeren Seiten in den PDFs erscheinen.
Automatisierung verbessern: Nutze Excel-Add-Ins, um den PDF-Druck zu automatisieren und leere Seiten zu vermeiden.

FAQ: Häufige Fragen

1. Warum druckt Excel leere Seiten?
Excel druckt leere Seiten, wenn die aktiven Blätter keine Daten enthalten oder wenn die Druckeinstellungen nicht korrekt sind.

2. Wie kann ich leere Seiten in einer PDF löschen?
Leere Seiten in einer PDF kannst du manuell mit PDF-Software löschen oder durch Anpassungen im Excel-Makro vermeiden.

3. Gibt es eine einfache Möglichkeit, leere Seiten zu entfernen?
Ja, indem du prüfst, ob die Blätter Daten enthalten, bevor du sie exportierst, kannst du leere Seiten effektiv vermeiden.

Beliebteste Forumthreads (12 Monate)

Forumthread: PDF per Makro leere Seiten

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

PDF-Druck aus Excel: Leere Seiten vermeiden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread