お酒好きのおしりトラブル対策とは

エクセル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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

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



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

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

web2525 さま

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

お礼日時:2013/11/12 13:30

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング