VBAで連続印刷(PDF出力も可)のサンプルコード

ロゴ



The following two tabs change content below.
アバター

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

どうもtakaです(^^♪

タイトルの連続印刷といわれてもピンと来ないかもしれませんね(;^ω^)

ここでいう連続印刷は決まったフォーマットに対して一部を切り替えて(名前など)連続で印刷することを指します(^^)/

今回は出勤簿をイメージして作成しています(-ω-)/

下記にサンプルコードを載せさせていただきました、下記のコードでは画像の黄色の部分にマスターに記入査定ている名前が順番に入れ替わり印刷されます(^^)/

連続印刷のサンプルコード

連続印刷のサンプルコードはいたってシンプルな作りになっています(^_-)-☆
おせっかいかもしれませんがPDF出力するコードも記載してありますのでご自由に編集してお使いください(^^♪

Sub sample()

Dim i As Long
Dim row As Long
Dim trSh As Worksheet

Dim res As Integer
res = MsgBox("連続で印刷されます、よろしいですか?", vbYesNo) '確認用のメッセージボックス
If res = vbNo Then Exit Sub

Set trSh = Worksheets("印刷用")

With Worksheets("マスター")
row = .Cells(.Rows.Count, 1).End(xlUp).row
For i = 2 To row 'Sheetマスタの上から二番目から最後に入力された人まで繰り返す。
trSh.Range("D2").Value = .Cells(i, 1).Value '名前を入力

'PrintOut ’印刷、使用するときは左端の「’」を消して使用してください。

'PDF↓PDFでシートを保存したい時にはprintoutを削除・コメントアウトしてこちらを有効にして下さい。保存先は自由に設定して下さい
'Worksheets("印刷用").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C: 保存先を記入 " & Worksheets("印刷用").Range("D2") & ".pdf"

Next i
End With
Print
End Sub

連続印刷の応用

連続印刷はいろいろな応用ができる可能性をもっています(-ω-)/
私が仕事で使っっているシステムでは登録者の情報一覧を決まったフォーマットで連続で印字できますし、今の時代の紙で情報を共有する時代ではありませんよね(笑)

その場合はぜひPDFで出力しましょう(^_-)-☆

PDFであればメールやLINEなど様々な状況でシェアができますし、そしてスマートフォンやタブレット端末、PCなど様々なデバイスで確認ができます(-ω-)/
いままで紙でしか伝えることができなかった書類が離れている同僚へ瞬時に送れるファイルに変身するわけです(^^)/

サンプルファイル

連続印刷のサンプルファイルはこちら↓

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

https://yb-log.com/

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Sponsored Link

 

WordPressでブログを始めるなら

WordPress簡単インストール&安心の安定性

レンタルサーバー Xserver

ロゴ

3 件のコメント

  • Great goods from you, man. I have understand your stuff previous to
    and you are just extremely wonderful. I really like what you’ve acquired here,
    really like what you are saying and the way in which you say it.

    You make it entertaining and you still care
    for to keep it smart. I cant wait to read far more from you.
    This is actually a terrific website.

  • Can I simply say what a comfort to find a person that truly understands what they’re talking
    about on the net. You certainly know how to
    bring an issue to light and make it important. A lot more
    people have to look at this and understand this side of your story.
    I was surprised that you aren’t more popular because
    you certainly possess the gift.

  • コメントを残す

    メールアドレスが公開されることはありません。 * が付いている欄は必須項目です