VBAの印刷範囲を可変にする方法

Question

VBAでgyouCountという変数を用いて、印刷範囲を可変にする方法を探しています。
現在、僕が考えているコードは以下のようです。

If gyouCount > 21 Then
             With Activesheet.PageSetup
                .PrintArea = "A1:G" & (38 + gyouCount - 21)
             End With
        Else 
            With Activesheet.PageSetup
                .PrintArea = "A1:G38"
            End With
End If

これだと、"A1:G38"の方しか印刷範囲が設定されないので困っています。

解決方法はないでしょうか。

回答、よろしくお願いします。

Comments

[Y.H.]

> "A1:G38"の方しか印刷範囲が設定されないので困っています。
??? gyouCountが22以上の場合「"A1:G" & (38 + gyouCount - 21)」を通りませんか？

Answer 1

「gyouCountの値が正しくない」としか思えません。
値は確認しましたか？