エクセルで連続印刷
エクセルで連続印刷をしたいです。
調べてみて、以下の過去の回答が私のしたいことであり、
真似してみました。
sheet2上の変化はまったくなく、最後の実行を押すと
✖400とでてきます。sheet2上には変化なしです。
教えてください。
(過去回答)
Sheet1のセルAに以下のように名簿が並んでるとします。
氏名(これはタイトル)
宛先 氏名1
宛先 氏名2
宛先 氏名3
宛先 氏名4
宛先 氏名5
宛先 氏名6
宛先 氏名7
宛先 氏名8
宛先 氏名9
印刷は別のシート、例えばSheet2に印刷するとした場合は以下のマクロで行えます。
なお、Sheet2の印刷範囲は仮にA1:D7の範囲としています。
Sub Pri_Name()
Range("A2").Activate
Do While ActiveCell.Text <> ""
Worksheets(2).Range("A1").Value = ActiveCell.Text
Worksheets(2).Range("A1:D7").PrintOut
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
上記のマクロはAltキーを押しながらF11キーを押して表示されるマクロのエディタでF7キーを
押して出てきたところに貼り付けます。
印刷を実行する場合はAltキーを押しながらF8キーを押して表示されるマクロの実行指示画面で
「Sheet1.Pri_Name」が選択されている事を確認して、同画面にある「実行(R)」ボタンを押します。
お礼
ありがとうございました。 とりあえずWordとExcelの組み合わせにてがんばってみたいと思います。 もしそれでまたつまづいたら質問させてください。 よろしくお願いします。