印刷時に自動で連番を振りたい(1頁に2か所)
Excel2013使用です。
※私はマクロの記録は出来ますが、VBAに関しては無知です。
【質問内容】
A4用紙に帳票を2枚作っています。(同じ物)
印刷時、帳票に連番を自動で振りたいです。
連番を振りたいセルは「D1」と「D16」です。
つまり、1枚目の紙には「1」「2」
2枚目の紙には「3」「4」
…と印刷されるようにしたいです。
(因みに、最後のページ数は都度変わります)
ネットで見つけたVBAを利用して
Sub Sample()
Dim i As Long, myCnt As Long
myCnt = Application.InputBox("印刷部数は?")
On Error Resume Next
Select Case myCnt
Case False
MsgBox "キャンセルされました"
Case Else
For i = 1 To myCnt * 2 Step 2
Range("D1") = i
Range("D16") = i + 1
ActiveSheet.PrintPreview '<<--プレビュー画面が不要ならこの行を削除。
'ActiveSheet.PrintOut '<<--直接印刷するなら「'」を消去。
Next i
End Select
End Sub
を実行してみましたが、上手く行きません。
(出てきたウィンドウに部数を入力しても、その通り印刷されません。
例えば「2部」と入力して、印刷画面のプロパティでは部数を指定せずに
印刷すると、最初の1頁だけが印刷されます。
試に印刷画面で2部にすると、今度は同じ紙(連番1と2)が2部印刷される
だけです)
どこを改良したらよいでしょうか…?