PDF erstellen

 

Inhalt

  • PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat
  • Erstellung Dateipfad & Direktbereich
  • Dateipfad und Name aus Zelle
  • Öffnen der Datei nach der Erstellung
  • Erster Test mit festen Werten für Pfad und Name
  • Anpassung des Ausgabeformats: Quer- und Hochformat
  • Ersetzen des Pfads und des Dateinamen durch Zellbezug
  • Testlauf mit Pfad und Name aus Zelle
  • Definition des exakten Exportbereichs & Test
  • Pfad und Name durch direkte Benutzereingabe definieren
  • Testlauf mit Benutzereingabe
  • Hinzufügen einer Abbruchvariante während dem Export

 

Code (PDF in Ordner der Excel-Datei abspeichern)

Sub PDF_Erstellen1()


'Tabellenblatt Format anpassen
Tabelle1.PageSetup.Orientation = xlLandscape
    
'PDF erstellen
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Test.pdf", OpenAfterPublish:=True

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

Code (Pfad und Dateiname aus Excel auslesen)

Sub PDF_Erstellen2()
    
'PDF erstellen
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Tabelle1.Range("B2").Value & "\" & _
Tabelle1.Range("B1").Value & ".pdf", OpenAfterPublish:=True

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

Code (Benutzer Pfad und Dateiname auswählen lassen)

Sub PDF_Erstellen3()

'Benutzer Name und Pfad auswählen lassen
Dim FullPath As Variant
FullPath = Application.GetSaveAsFilename(, FileFilter:="PDF-Dateien (*.pdf),*.pdf")

'Prüfen, ob etwas ausgewählt wurde
If FullPath <> False Then

    'Tabellenblatt Format anpassen
    Tabelle1.PageSetup.Orientation = xlLandscape
    
    'PDF erstellen
    Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\YouTube.pdf", OpenAfterPublish:=True
End If

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - QR-Code
Kai Weissmann

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung

Mehr lesen »
VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -Zeilen Ausblenden
Kai Weissmann

Zeilen Ausblenden

  Inhalt Einfügen Dropdown Menü in Excel Tabellenblatt-Ereignis Change If-Anweisung Intersect-Methode Zeilen ausblenden Einblenden sämtlicher

Mehr lesen »
VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren