PDF erstellen

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

 

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

Teile diesen Beitrag

Empfehlungen für dich

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung