サンプルファイル

---

Private Sub prView()

'===========================
' 印刷プレビュー
'===========================

Dim myRow1 As Long
Dim myRow2 As Long
Dim myStrg As String

Dim myClm1 As String
Dim myClm2 As String

myRow1 = "6" 'カスタマイズ1 : 開始行
myRow2 = Cells(65536, "C").End(xlUp).Row 'カスタマイズ2 : データの最終行

myClm1 = "C" 'カスタマイズ3 : 列の左端 / C列
myClm2 = "F" 'カスタマイズ4 : 列の右端 / F列


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

'印刷範囲の設定
ActiveSheet.PageSetup.PrintArea = myStrg

'プレビュー
ActiveWindow.SelectedSheets.PrintPreview



End Sub