15.04.2019, 15:20
Hey Leute,
aktuell wird durch folgenden Code meine Mappe als pdf gespeichert. Nun hat sich ergeben das mehrere Tabellenblätter in der Mappe sind. Nun gibt es ein Problem, er speichert die immer einzeln und fasst nicht alle Tabellenblätter zusammen. Bei speichern unter als pdf kann ich leider keine Skalierung angeben daher etwas doof, oder geht es irgendwie?
aktuell wird durch folgenden Code meine Mappe als pdf gespeichert. Nun hat sich ergeben das mehrere Tabellenblätter in der Mappe sind. Nun gibt es ein Problem, er speichert die immer einzeln und fasst nicht alle Tabellenblätter zusammen. Bei speichern unter als pdf kann ich leider keine Skalierung angeben daher etwas doof, oder geht es irgendwie?
Code:
Private Sub CommandButton6_Click()
Dim tempfilename As String
Range("F1").Clear
ActiveSheet.Shapes("CommandButton1").Delete
With ActiveSheet.PageSetup
.Zoom = False
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
tempfilename = TextBox1.Text
ChDir "C:\Users\XXXX\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tempfilename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=True, OpenAfterPublish:=False
Unload UserForm1
ThisWorkbook.Close False
End Sub