VBAを使ってPDFを印刷すると１枚しか出てこない

質問

エクセルvbaを使って、PDFを印刷しようとしていますが、
セルC1・C2に記載してあるファイルの保存場所+ファイル名をリスト化してあるのですが、
2枚続けて印刷ができず、１枚だけが印刷されて終わってしまいます。
印刷される１枚は２枚目にあたります。
どうしたら２枚全てが印刷されるのでしょうか？

エクセル2010で、vbaは初心者です。
ご存知の方、なにとぞ教えてください。
よろしくお願いいたします。

Sub PrintTest()

Dim i As Long
For i = 1 To 2

PrinterName = Application.ActivePrinter
fileName = Range("C" & i + 1).Value

Set myShell = CreateObject("WScript.Shell")
myShell.Run ("AcroRd32.exe /t " & fileName)

Next i
End Sub

回答No.1

web2525 · ベストアンサー

>セルC1・C2に記載してあるファイルの保存場所+ファイル名をリスト化してあるのですが

fileName = Range("C" & i + 1).Value

なぜ+1しているのですか？
これだと
一周目：セルC2
二周目：セルC3
の内容を読み込みます

お礼

web2525 さま

あ。。。
本当ですね。
気づかせてくださってありがとうございます＾＾；