EXCELで差し込み印刷をしてみる

仕事である表を印刷する際に

特定の項目のみ

データを入力し直して使っていました。

しかし、仕事で上司がある表のデータを

EXCELで作っていたため

WORDのような差し込み印刷したいのですが

特定のデータのみ修正しては印刷を繰り返す・・
・

そこで、簡単にできる作業なので

VBAを使って実装してみました。

差し込み印刷みたいなことをしてみる

ExcelでWordのような差し込み印刷をする場合

1. リストを読み込む
2. データを表示する
3. 印刷する

上記1～3の繰り返しを行うだけで済みます。

上記を踏まえた上で

Sub SashikomiPrint()
Dim frmRow As Integer

Dim toRow As Integer

Dim idx As Integer

Dim c As Integer
frmRow = Application.InputBox("開始行番号を入力してください", Type:=1)

toRow = Application.InputBox("終了行番号を入力してください", Type:=1)

For idx = frmRow To toRow
 '表示させたいシートの行をセルに表示させる

 'ここではSheet2のA1セルから順番にSheet1のA列frmRow行の内容を順次表示さ

せて印刷する
 c = frmRow
 Worksheets("Sheet2").Cells(1, 1).Value = Worksheets("Sheet1").

Cells(idx, 1)
 ActiveSheet.PrintOut
 c = c + 1
Next idx
End Sub

少し内容を変えれば

差し込み印刷みたいに使えます。