VBA als pdf in DIN A3 speichern?

Forumthread: VBA als pdf in DIN A3 speichern?

04.04.2020 15:08:18

Sco

Hallo!
Ich habe einen VBA Code, in der ich meine Mappe per Button als pdf speichere, die Excel-Datei wird automatisch geschlossen, die erstellte PDF Datei öffnet sich. Funktioniert auch alles so wie ich will.
Doch es wäre mir lieber, das pdf hätte ein DIN A3 Format, gespeichert werden die Dateien aber im DIN A4 Format.
Wie schaffe ich es, dass die Excel-Mappen beim speichern als PDF immer in DIN A3 gespeichert werden?
DANKE!
Hier ist noch mein Code:


Sub PDF_erstellen()
Dim Eingabewert As Byte
Eingabewert = MsgBox("Wurde das Teil vollständig gegprüft? /" & vbNewLine & "Has the part been   _
_
completely checked?", vbQuestion + vbYesNo, "Prüfung beenden? / End Checking?")
If Eingabewert = vbYes Then
MsgBox "PDF wird erstellt, Eingaben werden unwiderruflich gelöscht! /" & vbNewLine & "PDF will   _
_
be created and any inputs will be deleted!"
' PDF erstellen und Tabelle schließen - Makro
Dim Pfad As String, Dateiname As String
Dateiname = Range("G6") & ".-QS_geprueft" & ".pdf"
Pfad = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
FileFilter:="PDF-Datei (*.pdf),*.pdf")
If Pfad = CStr(False) Then
Application.DisplayAlerts = True
Exit Sub
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
ThisWorkbook.Close SaveChanges:=False
ElseIf Eingabewert = vbNo Then
MsgBox "Kein PDF erstellt. /" & vbNewLine & "No PDF created."
End If
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA als pdf in DIN A3 speichern?

04.04.2020 15:31:43

Hajo_Zi
AW: VBA als pdf in DIN A3 speichern?

04.04.2020 15:39:18

Sco

AW: VBA als pdf in DIN A3 speichern?

04.04.2020 15:31:43

Hajo_Zi

warum nicht einfach bei Seite einrichten A3 auswählen?
Excel hat auch einen Makrorecorder, falls mit VBA nicht vergessen alten Wert wieder einstellen.

AW: VBA als pdf in DIN A3 speichern?

04.04.2020 15:39:18

Sco

Ernsthaft...manchmal sehe ich die einfachsten Dinge nicht...Danke!

Infobox / Tutorial

Excel-Datei im DIN A3 Format als PDF speichern

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 deine Excel-Datei im DIN A3 Format als PDF zu speichern, kannst du den folgenden VBA Code verwenden. Der Code ermöglicht es dir, das Layout auf A3 umzustellen, bevor die PDF-Datei erstellt wird:

Sub PDF_erstellen()
    Dim Eingabewert As Byte
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' Setze das Seitenformat auf A3
    ws.PageSetup.PaperSize = xlPaperA3

    Eingabewert = MsgBox("Wurde das Teil vollständig geprüft? /" & vbNewLine & "Has the part been completely checked?", vbQuestion + vbYesNo, "Prüfung beenden? / End Checking?")
    If Eingabewert = vbYes Then
        MsgBox "PDF wird erstellt, Eingaben werden unwiderruflich gelöscht! /" & vbNewLine & "PDF will be created and any inputs will be deleted!"

        ' PDF erstellen und Tabelle schließen - Makro
        Dim Pfad As String, Dateiname As String
        Dateiname = Range("G6") & ".-QS_geprueft" & ".pdf"
        Pfad = Application.GetSaveAsFilename(InitialFileName:=Dateiname, FileFilter:="PDF-Datei (*.pdf),*.pdf")

        If Pfad = CStr(False) Then
            Application.DisplayAlerts = True
            Exit Sub
        End If

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        ThisWorkbook.Close SaveChanges:=False
    ElseIf Eingabewert = vbNo Then
        MsgBox "Kein PDF erstellt. /" & vbNewLine & "No PDF created."
    End If
End Sub

Dieser Code stellt sicher, dass die PDF im DIN A3 Format gespeichert wird. Stelle sicher, dass du auch die Druckbereiche richtig konfiguriert hast, um die gewünschten Daten zu erfassen.

Häufige Fehler und Lösungen

PDF wird im DIN A4 Format gespeichert
- Überprüfe, ob der PaperSize im Code richtig auf xlPaperA3 gesetzt ist.
Fehlermeldung beim Speichern
- Achte darauf, dass der Pfad, den du wählst, gültig ist und du die erforderlichen Berechtigungen hast.
PDF-Datei öffnet sich nicht nach dem Speichern
- Stelle sicher, dass OpenAfterPublish auf True gesetzt ist.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch die folgende Methode ausprobieren:

Gehe zu Seitenlayout in der Excel-Menüleiste.
Wähle unter Seite einrichten das Format A3 aus.
Speichere die Datei über Datei > Speichern unter und wähle PDF als Dateiformat aus.

Diese Methode ist einfach und eignet sich gut, wenn du nicht mit VBA arbeiten möchtest.

Praktische Beispiele

Hier ist ein Beispiel, wie du eine Excel-Tabelle mit verschiedenen Daten im DIN A3 Format exportieren kannst:

Erstelle eine Tabelle mit Verkaufsdaten.
Nutze den oben genannten VBA-Code, um die Tabelle als PDF im A3 Format zu speichern.
Überprüfe das Layout im PDF, um sicherzustellen, dass alles gut aussieht.

Tipps für Profis

Verwende Drucktitel und Druckbereiche, um sicherzustellen, dass deine Tabelle im PDF gut lesbar ist.
Experimentiere mit den Eigenschaften der PageSetup-Klasse, um das Layout weiter anzupassen.
Denke daran, die Excel-Datei als ausfüllbares PDF zu speichern, falls du Formulare oder Eingabefelder benötigst.

FAQ: Häufige Fragen

1. Kann ich die PDF-Datei automatisch per E-Mail versenden? Ja, das ist möglich, indem du nach dem Speichern der PDF eine E-Mail über VBA sendest.

2. Welche Excel-Version benötige ich für das Exportieren als PDF? Das Exportieren als PDF ist in Excel 2007 und neueren Versionen verfügbar. Achte darauf, dass du die aktuellste Version verwendest, um alle Funktionen zu nutzen.

Beliebteste Forumthreads (12 Monate)