【VBA】Excelで差し込み印刷をpdf化する

いつもお世話になります。

下記サイトを参考に、Excelでリストから差し込み印刷をすることはできたました（リストの名前を順に変更しながら印刷）。それを印刷ではなく、pdf化し、一つのファイルにまとめたいのですが、その作業でつまずいております。

https://mokomokomomoko.com/excel_macro_print/

.PrintOut Copies:=1, Collate:=True
部分をPrintToFile、PrToFileNameなど追加したりしてみたのですがうまくいかず……。
VBAは初めて触った状態で理解が乏しく申し訳ございません。

正しい方法をご教示いただけますと幸いです。
よろしくお願いいたします。

VBA
1Sub 印刷()
2    Dim LastRow As Long
3    Dim i As Long
4    Dim myNo As Long
5
6    If vbNo = MsgBox("印刷を開始していいですか？", vbYesNo) Then Exit Sub
7
8    With Worksheets("アカウントデータ")
9        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
10
11        For i = 1 To LastRow
12
13            myNo = .Range("A" & i).Value
14
15            With Worksheets("印刷シート")
16                .Range("J4").Value = myNo
17                .PrintOut Copies:=1, Collate:=True
18            End With
19        Next i
20    End With
21
22    MsgBox "印刷が終わりました"
23
24End Sub
25
26ーーーーーーーーーーーーーー以下方法で解決しましたーーーーーーーーーー
27
28Sub 印刷()
29    Dim LastRow As Long
30    Dim i As Long
31    Dim myNo As Long
32
33    If vbNo = MsgBox("印刷を開始していいですか？", vbYesNo) Then Exit Sub
34
35    With Worksheets("アカウントデータ")
36        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
37
38        For i = 1 To LastRow
39
40            myNo = .Range("A" & i).Value
41
42            Worksheets("印刷シート").Range("J4").Value = myNo
43
44            Dim fileName As String
45            fileName = "C:\Users\ユーザー名\sagyou\" & CStr(i) & ".pdf"
46
47            
48            Worksheets("印刷シート").PageSetup.PrintArea = "A1:F30"
49            Worksheets("印刷シート").ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, IgnorePrintAreas:=False
50            
51        Next i
52    End With
53
54    MsgBox "印刷が終わりました"
55
56End Sub
57
58
59

行動規範の内容に同意します

回答2件

Windows10では、標準でMicrosoft Print to PDF というプリンタドライバがあるので、それにプリント出力する、というテではどないでしょうか

投稿2018/05/24 12:17

y_waiwai

総合スコア88163

lyzmfeqpxs54

2018/05/24 13:14

早速のご回答ありがとうございます。下記の印刷メソッドを書き換えて、Microsoft Print to PDFに出力するようにできるという解釈でよいでしょうか。可能であればその方法をご教示いただけませんでしょうか。 With Worksheets("印刷シート") .Range("J4").Value = myNo .PrintOut Copies:=1, Collate:=True End With

y_waiwai

2018/05/24 13:24

まず、プリンタの中にMicrosoft Print to PDF（とか、他にもPDF表示ソフトにおまけでついてくるPDFプリンタがありますね）があるかどうかを確認しましょう。まあでも、こういうPDFプリンタで出そうとすると、途中で出力ファイル名を聞かれるダイアログが出るので、こういう用途には向かないかもしれません。まーでも、そこらへんの参考になりそうなリンクを貼っておきます。 https://kosapi.com/post-2207/ https://www.excel-excel.com/tips/vba_446.html

行動規範の内容に同意します

ベストアンサー

PrintOutnメソッドの代わりに、ExportAsFixedFormatメソッドを使えばいいでしょう。

下記をご参考に。

初心者でも簡単！エクセルVBAでPDFを出力する最もシンプルなプログラム

追記

ページエリアも指定の場所でない部分がpdf化されるだけになってしまいます。

Workbook.ExportAsFixedFormat メソッド (Excel)

上記より引用
|名前|必須 / 省略可能|データ型|説明|
|:--|:--:|--:|
|IgnorePrintAreas|省略可能|バリアント型 (Variant)|True に設定すると、発行する場合に印刷範囲が無視されます。 False に設定すると、発行する場合に印刷範囲が使用されます|

下記でどうでしょう。

vba
1            Worksheets("印刷シート").PageSetup.PrintArea = "A1:E30"
2            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName _
3                                            IgnorePrintAreas = False