0

2 つのシートを印刷し、いくつかのセルを参照するカスタム フッターを含めるマクロを作成する必要があります。

非常に多くの組み合わせを試しましたが、何が間違っているのかわかりません。エラーが発生します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
4

1 に答える 1

1

を使用してWith ActiveSheet.PageSetupいますが、次の行で を参照しようとしているのWorksheetではなく、PageSetupを実行してい.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
于 2013-05-20T20:49:42.630 に答える