印刷領域を設定するコードは機能しません。

Question

VBAとExcelの新機能です。 私は、ドキュメント

Dim count As Integer 
count = ThisWorkbook.Worksheets("sheet2").Range("E106").Value 

    Dim i As Integer 
    i = count + 4 


    Sheets("sheet1").PageSetup.PrintArea = Range(Cells(3, 2), Cells(35, i)) 
    End Sub 

しかし、私は印刷プレビューに行くときに、完全なシートが表示されているために印刷領域を設定し、コードを持っています。 Sheet1とSheet2はワークシート名のエイリアスですが、それらを参照する他のコードがあり、うまく動作します。私はすでに、最初の場所に印刷領域を設定するマクロを記録してから、私のカスタム範囲を挿入しようとしました。 私が間違ってやって上の任意の助けいただければ幸いです:)

Answer 1

PageSetupのPrintAreaプロパティは、オブジェクト（range）が、所望の範囲のアドレスを保持stringではありません。

With Sheets("sheet1") 
    .PageSetup.PrintArea = .Range(.Cells(3, 2), .Cells(35, i)).Address 
End With    '          ^^^^^^^^ 

Answer 2

ビットより高度なバージョン（試験）：この試みる

With ThisWorkbook.Worksheets("Sheet1") 
    .PageSetup.PrintArea = .Range("offset(B3,0,0,32,Sheet2!E106+2)").Address 
    .DisplayPageBreaks = False ' optional to hide the print area rectangle 
End With