[印刷範囲の指定・設定]

印刷範囲を指定するコツは、データの最終行を取得することです。印刷データは、左上、右上は基本的に固定されていると思います。　変わってくるのは最終行だけです。　そこで、データを入力する際に、「連番」「ID」といったものを必ず入力するようにして、最終行を取得しやすいようにします。

 

---

 -------------------------------
四隅を印刷範囲に指定
-------------------------------
Sub slctCell()

　　’A2からC10を印刷範囲に指定
　　ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"


End Sub

 

---

---------------------------------------------
四隅を印刷範囲に指定 （変数1）
---------------------------------------------
Sub slctCell()

　　’A2からC10を印刷範囲に指定
　　Dim myRow1 As Long
　　Dim myRow2 As Long
　　Dim myStrg As String

　　myRow1 = 2
　　myRow2 = 10

　　'印刷範囲を文字列で組み立てる
　　myStrg = "$A$" & myRow1 & ":$C$" & myRow2

　　ActiveSheet.PageSetup.PrintArea = myStrg

End Sub

 

---

 
----------------------------------------------------------
四隅を印刷範囲に指定 （変数2）  最終行が不確定の場合
-----------------------------------------------------------





Sub slctCell()

    'A2からC列の最終行を印刷範囲に指定
    Dim myRow1 As Long
    Dim myRow2 As Long
    Dim myStrg As String

    myRow1 = 2

　’（C列に最後のデータがあるとします）
    myRow2 = Cells(65536, "C").End(xlUp).Row

    '印刷範囲を文字列で組み立てる
    myStrg = "$A$" & myRow1 & ":$C$" & myRow2

    ActiveSheet.PageSetup.PrintArea = myStrg

End Sub

---