kann mir jemand erklären, warum ich bei diesem PDF 3 Seiten rausbekomme?
1. Seite mit den gewünschten Daten und 2 Leerblätter:
Danke schön
Private Sub CommandButton1_Click()
ChDir "c:\Berichte\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("E6").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub