AW: PDF aus mehreren Blättern erstellen
31.07.2017 11:32:49
Leooo
Hi,
ich habe das Problem jetzt mit folgendem Code gelöst. Das Problem ist jetzt jedoch, dass ich die Blätter BLatt1 und Blatt2 eigentlich gerne Ausblenden möchte, was durch die Befehle .Select & .Activate nicht möglich ist.
Kann mir jemand sagen wie ich den Code umschreiben muss, damit es funktioniert?
Sub Test1()
ThisWorkbook.Worksheets("Blatt1").PageSetup.PrintArea = "G22:Q80"
ThisWorkbook.Worksheets("Blatt1").PageSetup.Orientation = xlPortrait
ThisWorkbook.Worksheets("Blatt1").PageSetup.Zoom = True
ThisWorkbook.Worksheets("Blatt1").PageSetup.FitToPagesTall = 1
ThisWorkbook.Worksheets("Blatt1").PageSetup.FitToPagesWide = 1
ThisWorkbook.Worksheets("Blatt2").PageSetup.PrintArea = "B1:L80"
ThisWorkbook.Worksheets("Blatt2").PageSetup.Orientation = xlPortrait
ThisWorkbook.Worksheets("Blatt2").PageSetup.Zoom = True
ThisWorkbook.Worksheets("Blatt2").PageSetup.FitToPagesTall = 1
ThisWorkbook.Worksheets("Blatt2").PageSetup.FitToPagesWide = 1
ReDim arrBlätter(1 To 2)
arrBlätter(1) = "Blatt1"
arrBlätter(2) = "Blatt2"
Sheets(arrBlätter).Select
Sheets(arrBlätter(1)).Activate
sPDFPath = Application.GetSaveAsFilename("Test1), FileFilter:="PDF-Datei (*.pdf),*.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Blatt1").Select
End Sub
Vielen Dank schon mal! :-)