Sub
PDF_generieren()
Dim
Datei
As
String
, Pfad
As
String
, DateiN
As
String
Dim
letzte
As
Long
Datei =
"Entladebericht Kunde xx.xx.xxxx"
Pfad = "C:\Users\Christian\Desktop\Christian
DateiN = InputBox(
"Bitte Dateiname anpassen"
,
"Dateiname"
, Datei)
If
Trim(DateiN) =
""
Then
Exit
Sub
With
Sheets(1)
letzte = .Cells(Rows.Count, 2).
End
(xlUp).Row
.PageSetup.Orientation = 2
.PageSetup.Zoom =
False
.PageSetup.FitToPagesWide = 1
.Range(Cells(5, 2), Cells(letzte, 16)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & DateiN, openafterpublish:=
True
End
With
End
Sub