エクセルで差し込み印刷(excelだけで差し込み印刷する方法)


エクセルで差し込み印刷(excelだけで差し込み印刷する方法)

エクセルで、差し込み用のデータを作って、wordで差し込み印刷ってよくやるけど、ちょっと面倒だし、エクセルだけでいいなら、管理もやりやすいよね。

ということで!
wordを使わずに、excelのみで、差し込み印刷をしよう!

シート1を、「印刷用シート」。シート2を「差し込みシート」とシート名を変更して、
「差し込みシート」のA2より、差し込みたいデータを貼り付けておきます。
後は、以下のマクロを走らせれば、「印刷用シート」のA1にデータが差し込まれて、印刷されます。
大量に印刷することを前提にしているので、2度ほど確認画面設定しています。(笑)
※さらに便利に使うには、ボタンを設定したほうがいいね。
場所を変えたい場合とか、複数個所に設定したいなら、for~nextの内容を修正しよう!

Sub エクセルで差し込み印刷()

Dim Result As Long
Result = MsgBox("「差し込みシート」の更新はしましたか?", vbYesNo + vbExclamation)
If Result = vbYes Then
'はい処理はそのままスルー
Else
'いいえ処理は、マクロ停止
Exit Sub
End If

'プリンタ選択ダイアログ
Application.Dialogs(xlDialogPrinterSetup).Show

Result = MsgBox("一度に全てを印刷します。本当にいいですか?", vbYesNo + vbExclamation)
If Result = vbYes Then
'はい処理はそのままスルー
Else
'いいえ処理は、マクロ停止
Exit Sub
End If

スポンサーリンク

----- べんりあつめ。-----

'ここからループ処理⇒ 差し込み内容を切り替えながら印刷
Dim i: i = 1
Dim maxrow
With Sheets("差し込みシート").UsedRange
maxrow = .Rows(.Rows.Count).Row
End With

For i = 1 To maxrow - 1
Sheets("印刷用シート").Cells(1, 1).Value = Sheets("差し込みシート").Cells(i + 1, 1).Value
Sheets("印刷用シート").PrintOut
Next i

End Sub

スポンサーリンク

スマホのみ下に表示