エクセルVBAで、テキストボックスに値を入れる（３）

質問

質問がバラバラになってしまってすみません！
エクセルVBAで、テキストボックスに値を入れる（１）の 回答13で、
データシートの何行目～何行目までを印刷させる方法（Sheet7にボタン）
をさせるには、どうしたら良いでしょうか？宜しくお願いします。

前回のURL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173
　　　　 　http://oshiete1.goo.ne.jp/kotaeru.php3?qid=85389

回答No.8

nishi6

回答した、「job_Print」と「page_Print」が今どのようになっているか補足して下さい。すぐ答えはでると思います。
なお、job_Printのメッセージボックス部分は不要です。（あってもいいですが）

補足

この部分は、まだテストデータなので、まだ教えていただいたときのままです。

Public Sub job_Print() '指定して連続印刷
Dim myMsg As String 'メセージ
Dim myNum 'インプット帰り値
Dim prtPattern As Integer '印刷パターン、0は全て
Dim startRow As Long '印刷開始行、0は開始、最終行を自動計算
Dim endRow As Long '印刷最終行、0は最終行を自動計算
Dim rowCot As Long '行カウンタ

myMsg = "印刷開始行を入力" & vbLf & "　　＜0(ゼロ)は全データ＞"
myNum = InputBox(myMsg): If Len(myNum) = 0 Then Exit Sub Else startRow = Val(myNum)
If startRow = 0 Then
startRow = 1
endRow = Workbooks(wbNM).Worksheets(wsNM).UsedRange.Rows.Count - 1
ElseIf startRow >= 1 Then
myMsg = "印刷最終行を入力" & vbLf & "　　＜0(ゼロ)は最終行＞"
myNum = InputBox(myMsg): If Len(myNum) = 0 Then Exit Sub Else endRow = Val(myNum)
If endRow = 0 Then
endRow = Workbooks(wbNM).Worksheets(wsNM).UsedRange.Rows.Count - 1
End If
Else
MsgBox "エラー": Exit Sub
End If

Application.ScreenUpdating = False
For rowCot = startRow To endRow '連続ページ印刷
Range("A2") = rowCot
Tensou rowCot, prtPattern
If prtPattern = 0 Or (prtPattern = shtPatt) Then '印刷パターンを判定
page_Print
End If
Next
Application.ScreenUpdating = True
Worksheets("Sheet7").Activate
End Sub

Public Sub page_Print() '単ページ印刷、変更しています
Range("Print_Area").Select: Selection.Font.ColorIndex = 2

ActiveWindow.SelectedSheets.PrintOut 'PrintOut
Selection.Font.ColorIndex = xlAutomatic
Range("Print_Area").Cells(1, 1).Select
End Sub

宜しくお願いします。