Strange errors attempting to print charts

[lmeninato]

Sub Print3()





Dim sht As Worksheet
Dim CurrentSheet As Worksheet
Dim cht As ChartObject


Application.ScreenUpdating = False
Application.EnableEvents = False


Set CurrentSheet = ActiveSheet


For Each sht In ActiveWorkbook.Worksheets
    If .Name <> "CHART OVERALL" Or "CHART TL" Or "CHART BL" Or "CHART TR" Or "CHART BR" Then


    Else
        For Each cht In sht.ChartObjects
            cht.Activate
            ActiveChart.PrintOut Copies:=1
        Next cht
    End If
Next sht


CurrentSheet.Activate
Application.EnableEvents = True


End Sub

I can't seem to get this to work. I've tried a lot of variations of this code and I'm not sure why it's not working as it's fairly simple. For each of the worksheets I name in the If statement, I'd like the print the charts in those sheets. Any thoughts?