vba - Excell Print VBA 代码与 VBA 自定义页脚相结合

Question

我需要创建一个宏来打印两张纸，并包含一个引用多个单元格的自定义页脚。

我尝试了很多组合，但我不知道我做错了什么。我得到错误Object does not support this property or method。

Sub PrintSummarySheet()

' PrintSummarySheet Macro

    Sheets("Project Data Input").Select
    With ActiveSheet.PageSetup
        .CenterFooter = .Range("C6").Text And .Range("F2").Text _
        And .Range("F4").Text And .Range("F5").Text

    End With
    Sheets(Array("Project Data Input", "Project Estimate Summary")).Select
    Sheets("Project Data Input").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("INSTRUCTIONS").Select
       Sheets("Project Data Input").Select

End Sub

Answer 1

您正在使用With ActiveSheet.PageSetup，但在下一行您试图引用 theWorksheet而不是PageSetupby doing .Range(...)。

您需要替换.Range(...)为ActiveSheet.Range(...).

发生这种Run-time error 13 Type mismatch情况是因为您使用And的是连接文本而不是连接运算符&

.Range("C6").Text And .Range("F2").Text _
    And .Range("F4").Text And .Range("F5").Text

应该：

.Range("C6").Text & .Range("F2").Text & _
    .Range("F4").Text & .Range("F5").Text