|
タイトル行の設定や用紙のサイズ・向きなどについては、
メニューのページ設定を選択し、ダイアログに手作業で
設定していった方が良いでしょう。マクロでそれをやると
時間がかかりますから。で、一枚の用紙に101行を印刷する
というところだけに絞ったマクロにするなら、
理屈の上では以下のようなコードになります。
Sub MyPrint()
Dim i As Long
For i = 2 To 2302 Step 100
Cells(i, 1).Resize(100, 15).PrintOut Copies:=1
Next i
End Sub
ただし、このままテストするわけにはいかないので、一枚印刷するたびに
「タイマー付きMsgBox」を出して、3秒間の間にキャンセルを
押さなければ、自動的に次の印刷に移る、という形に変更します。
Sub Test_Print()
Dim WshShell As Object
Dim i As Long, Ans As Long
Set WshShell = CreateObject("WScript.Shell")
For i = 2 To 2302 Step 100
Cells(i, 1).Resize(100, 15).PrintOut Copies:=1
Ans = WshShell.Popup("印刷を中止しますか", 3, , 36)
If Ans = 6 Then Exit For
Next i
Set WshShell = Nothing
MsgBox "印刷を終了します", 64
End Sub
|
|