ここから本文です

VBA pdfの印刷コマンドラインについて pdfをVBAを使って印刷したいのですが、 ...

rad********さん

2014/8/1017:49:26

VBA pdfの印刷コマンドラインについて

pdfをVBAを使って印刷したいのですが、
Filename の後ろに、プリンターの指定をしたいのですが、

どのように記述すればいいのかわかりません。

Sub 印刷()
printername = "両面"
Filename = "C:\test.pdf"
Set myShell = CreateObject("WScript.Shell")
myShell.Run ("AcroRd32.exe /t " & Filename)
End Sub


どのように記載してもエラーが出てしまうので、教えてください。

閲覧数:
14,596
回答数:
1

違反報告

ベストアンサーに選ばれた回答

TageSPさん

2014/8/1022:05:20

こんにちは
早速ですが
http://helpx.adobe.com/jp/acrobat/kb/510705.html
↑こちらのページを参考にして。
Adobe Reader を起動し、印刷ダイアログボックスを表示せずに
PDF ファイルを印刷する方法として、
以下のコードを、提案させて頂きます。
++++++++++++++
Sub 印刷()
'http://helpx.adobe.com/jp/acrobat/kb/510705.html
Dim printername As String, Filename As String

'プリンター名の指定。””でくくる。
printername = Chr(34) & "両面" & Chr(34)
' 'デバッグ用
' printername = Chr(34) & "Microsoft XPS Document Writer" & Chr(34)

'対象PDFファイルパスの指定。””でくくる。
Filename = Chr(34) & "F:\test.pdf" & Chr(34)

Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
Dim fff As String '実行ラインの組み立て・格納。
fff = "AcroRd32.exe /t " & Filename & " " & printername '1つ目がファイルパス。2つ目がプリンター名
myShell.Run (fff) '実行。
Set myShell = Nothing
End Sub
++++++++++++++

以上
私は、Windows7環境上の
Excel2003の、Adobe Reader 9を元にして記入しているので、
他のバージョンなどで動作が異なれば、すみません。

また、ご質問の内容と異なっていれば
申し訳ございません。

以上
ありがとうございました。

  • 質問者

    rad********さん

    2014/8/1022:57:06

    ありがとうございました。
    Sub 印刷()
    printername = "両面"
    Filename = "C:\【タブレット用】\テキスト\英語スタンダードワーク\1.pdf"
    Set myShell = CreateObject("WScript.Shell")
    myShell.Run ("AcroRd32.exe /t " & Filename & " " & printername)
    End Sub

    で成功したのですが、
    印刷後にadobe reader が残りっぱなしだったのですが、
    消す方法はありますか?

  • その他の返信(5件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる