こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2013-11-12 11:46:05

QNo.8344233

困ってます

質問者が選んだベストアンサー

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

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

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

投稿日時 - 2013-11-12 12:12:33

お礼

web2525 さま

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

投稿日時 - 2013-11-12 13:30:54

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問