Probleme beim Speichern in PDF
06.09.2021 07:48:12
Justin
ich habe jetzt folgendes Problem, was ich nicht ganz verstehe.
Ich möchte über eine Userform Blätter zur Auswahl geben, die zum Drucken, Drucken mit PDF-Erstellung oder nur PDF-Erstellung weitergegeben werden.
Dabei möchte ich die Seiten jeweils auf eine Seite Formatieren und eventuell ein anderes Format zuordnen, s. u.:
'** Festlegen, welche Tabellenblätter gedruckt werden sollen, nur die mit Haken
If UFDrucken.chkDeckblatt.Value = True Then
VariableBlätter = Worksheets(1).Name & ";" 'Deckblatt einfügen
With Worksheets(1).PageSetup
.Orientation = 1 'Hochformat einstellen
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.RightHeader = ""
.LeftHeader = ""
.CenterHeader = ""
.RightFooter = ""
.LeftFooter = ""
.CenterFooter = ""
End With
End If
If UFDrucken.chkTermine.Value = True Then
VariableBlätter = VariableBlätter & Worksheets(2).Name & ";" ' Termine einfügen
With Sheets(2).PageSetup
.Orientation = 1 'Hochformat einstellen
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End If
If UFDrucken.chkStandard.Value = True Then
VariableBlätter = VariableBlätter & Worksheets(3).Name & ";" 'Standardbaugruppen einfügen
Select Case True
Case Sheets(3).Columns("D").EntireColumn.Hidden 'Standard eingekürzt ohne Erklärungen
With Sheets(3).PageSetup
.Orientation = 1 'Hochformat einstellen
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Case Else 'Standard nicht eingekürzt, also mit Erklärungen
With Sheets(3).PageSetup
.Orientation = 2 'Querformat einstellen
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Select
End If
If UFDrucken.chkOptionen.Value = True Then
VariableBlätter = VariableBlätter & Worksheets(4).Name & ";" 'Optionsbaugruppen einfügen
Select Case True
Case Sheets(4).Columns("D").EntireColumn.Hidden 'Optionen eingekürzt ohne Erklärungen
With Sheets(4).PageSetup
.Orientation = 1 'Hochformat einstellen
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Case Else 'Optionen nicht eingekürzt, also mit Erklärungen
With Sheets(4).PageSetup
.Orientation = 2 'Querformat einstellen
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Select
End If
If UFDrucken.chkTypenschild.Value = True Then
VariableBlätter = VariableBlätter & Worksheets(5).Name & ";" 'Typenschild einfügen
With Sheets(5).PageSetup
.Orientation = 1 'Hochformat einstellen
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End If
Also sehe ich einfach die Tabelle, die maximiert werden soll plus einige leere Zeilen und Spalten rechts und darunter, obwohl die wirklich leer zu sein scheinen (Keine Einträge, keine Formeln drin)
Kann mir jemand bei diesem komischen Problem helfen?
LG Justin
