PDF aus Excel erstellen

• 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

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

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

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