画像の差し込み印刷(エクセル)其のニ

 ★ 今回はPDFで出力するように変更 ★ 
 どうもこんばんわ阿良々木(アラクリカエシキ)です。
 このまえ掲載したエクセルの差し込み印刷の記事では開始番号と終了番号を指定して印刷しましたが、職場で使っているものは一端PDFで出力しています。なので、そのサンプルも紹介してみます。
 エクセルファイルと同じ場所に「PDF」と言うフォルダを作成し。コードを前回のものから下記のように変更します。
 PDF化は「マクロの記録」で普通にPDFで保存する作業を記録し、「filename:=」の部分を書き換えれば思ったより簡単にできるので皆さんも試してみてください。
'標準モジュール
Option Explicit
'-----------------------------------------------------------------------------
Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & _
Sheets("TEMP").Range("B1"), 2) & ".jpg"
If Dir(picst) = "" Then
Sheets("TEMP").Image1.Picture = LoadPicture("")
Else
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End If
End Sub
'------------------------------------------------------------------------------
Sub toPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\PDF\" & Right("00" & _
Sheets("TEMP").Range("B1"), 2) & ".PDF", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub
'シートモジュール
'------------------------------------------------------------------------------
Option Explicit
'------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim bangou, a, n As Long
Dim picst As String
a = Range("F1").Value '開始番号
n = Range("H1").Value '
For bangou = a To n
DoEvents
Range("B1").Value = bangou
Call LP  ’←画像を切り替える
DoEvents
Call toPDF ' ←PDFで出力する。
DoEvents
'ActiveWindow.SelectedSheets.PrintOut ’今回はコメントアウト
Next bangou
End Sub
'------------------------------------------------------------------------------
ブログランキング・にほんブログ村へ
にほんブログ村
関連記事
スポンサーサイト



コメントの投稿

非公開コメント

訪問者さま
カレンダー
09 | 2020/10 | 11
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
3191位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
115位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム