[[20180601110532]]　『差し込み印刷のPDF可』（lalala）　ページの最後に飛ぶ

『差し込み印刷のPDF可』（lalala）

差込印刷用のマクロを利用してそれぞれ１枚ずつPDF可をしようと
マクロを作成したのですが、１つのレコードだと
成功するのですが、複数だと失敗します。
（特定セルに１が入っていると差し込まれるよう指定したつもりです）
また、PDFのファイル名を定型ではなくファイルごとに指定されたセルに
変更したいのですがうまくいきません。

Sub Test2()
Dim r As Range

If MsgBox("印刷欄に 1 があるデータをPDF可しますか？", _
vbQuestion + vbYesNo, "PDF") <> vbYes Then Exit Sub

With Worksheets("期間満了者リスト")

     For Each r In .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
         If r.Value = 1 Then

            '差込先のセル = 差込元のセル のかたちで指定（※）
            Worksheets("マクロ").Range("C16").Value = r.Offset(0, 11).Value
            Worksheets("マクロ").Range("I16").Value = r.Offset(0, 4).Value
            Worksheets("マクロ").Range("O16").Value = r.Offset(0, 5).Value
            Worksheets("マクロ").Range("V16").Value = r.Offset(0, 6).Value
            Worksheets("マクロ").Range("Z16").Value = r.Offset(0, 19).Value
            Worksheets("マクロ").Range("C18").Value = r.Offset(0, 21).Value
            Worksheets("マクロ").Range("K18").Value = r.Offset(0, 22).Value
            Worksheets("マクロ").Range("Q18").Value = r.Offset(0, 16).Value
            Worksheets("マクロ").Range("AA18").Value = r.Offset(0, 17).Value
            Worksheets("マクロ").Range("A50").Value = r.Offset(0, 1).Value

            'Sub outputPDF()

              Dim fileName As String '保存先フォルダパス＆ファイル名
              fileName = ThisWorkbook.Path & "\Range("I16").pdf"

             ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName

         End If
     Next r

End With

End Sub

お手数ですが、ご教示いただきたくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

どううまくいっていないのか、具体的に説明してもらわないと判らないのですが…。
とりあえず、ぱっと見で以下は変。

 fileName = ThisWorkbook.Path & "\Range("I16").pdf"
 ↓
 fileName = ThisWorkbook.Path & "\" & Range("I16") & ".pdf"
（???） 2018/06/01(金) 11:21

うまくいきました！！
ありがとうございました。
（lalala） 2018/06/01(金) 11:25

コメント返信：

[ 一覧(最新更新順) ]

[[20180601110532]] 『差し込み印刷のPDF可』（lalala） ページの最後に飛ぶ

[[20180601110532]]　『差し込み印刷のPDF可』（lalala）　ページの最後に飛ぶ