【Excel】マクロで差し込み印刷をするには

エクセルで差し込み印刷をしたい場合、

残念ながら、その機能がありません。

仕方ないのでマクロを使うのですが、

難しそうで諦めてしまう・・・

私もそうでした。

 

しかし、このエクセルファイルがあれば簡単にできます。

繰り返し印刷をするという意味で

名前を「リピプリ」とつけてあります。

無料のサンプルデータを作りましたので確認してみてください。

 

ファイルのダウンロードは以下のリンクからどうぞ。

• 　マクロ付きエクセルファイル　ripipuri
• 　Zip圧縮ファイル　ripipuri

隣のシートからデータを読み込んで

選択した範囲のデータを印刷するように作ってあります。

 

動作は若干遅いですが、

エクセルで入力して印刷する手間を考えると

大幅な時間短縮が可能です。

 

マクロだけあればよいという方には

以下のマクロ文をお使いください。

 

：：：：：以下マクロです：：：：：

 

Sub リピプリ()

'コード代入（左側：変更値　右側：印刷開始番号）
Range("B1") = Range("B2")

'印刷最終番号の設定
Do While Range("B1") <= Range("B3")

'印刷シートの設定
ActiveSheet.PrintOut

'ループ代入処理
Range("B1") = Range("B1") + 1
Loop
End Sub