- 締切済み
vbaを使ってエクセルリストからPDFを印刷する
エクセルシートA列に"ファイル場所+ファイル名.pdf"を合体させたリストを作成しました。 リストの上から順にPDFファイルを開き印刷するコードを作成しました。 印刷はされますが、リストの順番に印刷されず、ものすごくランダムに印刷されてしまいます。 このエラーについて、 「次々に実行させるから、ファイルの容量順に印刷されてしまうのでは? PDFを開いて、一旦閉じるコードを入れればよいのでは?」 というアドバイスをもらいましたが、どう対応したらよいか分かりません。 他に考えられる原因があるかもしれません。 教えて下さい。よろしくお願いします Dim i As Long 'セルC2に繰り返し数(ファイルの数)が入力されています For i = 1 To Range("C2").Value 'セルB**に印刷フラグを立て、「空欄」なら印刷、「1」なら印刷しないとしています '印刷フラグ「空欄」は印刷実行 If Cells(i + 1, 2).Value = "" Then PrinterName = Application.ActivePrinter fileName = Range("A" & i + 1).Value Set myShell = CreateObject("WScript.Shell") myShell.Run ("AcroRd32.exe /t " & fileName) '印刷フラグ「1」は印刷しない ElseIf Cells(i + 1, 2).Value = "1" Then End If Next i End Sub
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- kmetu
- ベストアンサー率41% (562/1346)
回答No.1
お礼
kmetuさま 早々に回答くだり、ありがとうございます。 お礼が遅くなって申し訳ありません。 アプリケーションを終了させる方法を参考にしながら、 その他の箇所を直している最中ですが、時間がなくなってしまい、 完成までもう少し時間がかかりそうです。。。。 またこちらでご報告いたします。 先ずは取り急ぎお礼まで。