Hallo Frank,

versuchs mal ohne die ganze Selectiererei

Sub DruckenOverview()
If MsgBox("Moechtest du die Auswertung drucken?", vbYesNo) = vbYes Then
    Sheets("Druck Auswertung").Select
    ThisWorkbook.Worksheets("Druck Auswertung").PrintOut From:=1, To:=1, Copies:=1
End If
End Sub

Sub DruckenKplt()
If MsgBox("Moechtest du den kompletten Auswertungssatz drucken?", vbYesNo) = vbYes Then
    Sheets("Druck Auswertung").Select
    ThisWorkbook.Worksheets("Druck Auswertung").PrintOut From:=1, To:=1, Copies:=1

    With Worksheets("Druck Punkte").PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ThisWorkbook.Worksheets("Druck Auswertung").PageSetup.PrintArea = ""
    With ThisWorkbook.Worksheets("Druck Auswertung").PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ThisWorkbook.Worksheets("Druck Auswertung").PrintOut From:=1, To:=1, Copies:=1
    ThisWorkbook.Worksheets("Druck Schluessel").PrintOut From:=1, To:=1, Copies:=1
End If
End Sub

Gruß Werner