无法运行简单的打印 vba 脚本

Question

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

我似乎不能让这个工作。我已经尝试了很多这种代码的变化，我不知道为什么它不工作，因为它是相当简单。对于我在If语句中命名的每个工作表，我想打印这些工作表中的图表。任何想法吗?

Answer 1

你的if语句需要一些工作，添加了屏幕更新= true也…

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" and .Name <> "CHART TL" and .Name <>  "CHART BL" and .Name <>  "CHART TR" and .Name <>  "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
application.screenupdating = true
End Sub

Answer 2

所以我修改了一些东西。对于if语句，我认为它一直注册为真，可能是由于。name没有得到表名，因此你永远不会进入else语句。以下是修改后的代码:

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 sht.Name = "CHART OVERALL" Or sht.Name = "CHART TL" Or sht.Name = "CHART BL" Or sht.Name = "CHART TR" Or sht.Name = "CHART BR" Then
        For Each cht In sht.ChartObjects
            Debug.Print sht.Name
            cht.Activate
            ActiveChart.PrintOut Copies:=1
        Next cht
    End If
Next sht
CurrentSheet.Activate
Application.EnableEvents = True
End Sub