|
Guten Abend zusammen,
ich habe da mal eine Frage. Aktuell bastel ich an einer Datei, die nach entsprechender Filterung, direkt als PDF gespeichert werden soll. Das funktioniert auch soweit, nur habe ich aktuell ein paar kleine Probleme, die ich nicht lösen kann:
- Beim Speichern hätte ich gerne, dass man den vorgegebenen Dateinamen noch anpassen kann, bevor gespeichert wird
- Die PDF soll mit einer individuellen Länge der Tabelle generieren werden
Anbei mein aktueller Code für meine Tabelle:
Sub PDF_generieren()
'
Sheets("Entladebericht").PageSetup.Orientation = 2 'Querformat'
Sheets("Entladebericht").PageSetup.Zoom = False
Sheets("Entladebericht").PageSetup.FitToPagesWide = 1
Sheets("Entladebericht").Range("B5:P5").ExportAsFixedFormat xlTypePDF, _
Filename:="C:\Users\Christian\Desktop\Christian's Unterlagen\VBA\Test Entladebericht\Entladebericht Kunde xx.xx.xxxx", _
openafterpublish:=True
'
End Sub
Danke schon einmal für Eure Hilfe.
|