FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

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

 ★ 今回は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
'------------------------------------------------------------------------------
ブログランキング・にほんブログ村へ
にほんブログ村
関連記事
スポンサーサイト

コメントの投稿

非公開コメント

FC2カウンター
阿良々木''@_掲示板 NEW
入口
RSSリンクの表示
プロフィール

arakurikaesiki

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

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

この人とブロともになる

最新コメント
リンク
らくがき
新着記事
トップページ Jan 01, 2030
PLUS COFFEE Oct 10, 2018
アキネトン追加 Sep 27, 2018
操作性.… Sep 23, 2018
まわりに危機感がないと… Sep 19, 2018
異世界魔王と召喚少女の奴隷魔術 四月は君の嘘 Sep 18, 2018
その一言で Sep 13, 2018
住所と名前を書いてハンコを押す Sep 12, 2018
残高が… Sep 12, 2018
リクは基本無しでお願いします(笑) Sep 10, 2018
カテゴリ
カレンダー
11 | 2018/12 | 01
- - - - - - 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 - - - - -
アクセスランキング
[ジャンルランキング]
ブログ
4380位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
209位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。