Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36585 / 76738 ←次へ | 前へ→

【45332】Re:pdfファイルを印刷するには?
発言  ichinose  - 06/12/19(火) 21:24 -

引用なし
パスワード
   ▼テンちゃん さん:
こんばんは。

>所定の場所にあるPDFファイルを、ファイル名を指定して、
>自動で印刷したいのですが可能でしょうか?
>また、どのように書いたらいいのでしょうか?
>
>自力で調べられるだけ調べたのですが、
>ShellExecuteで"Acrobat.exe"のフルパス?と"print"指定をすれば可能・・・
>といったところまでわかったのですが、VBA(プログラミング自体)を勉強中ですので、
>構文?の書き方がわかりませんでした。。。

そこまでお分かりだとGoogleで検索すれば沢山引っかかってきますけどねえ!!

標準モジュールに
'========================================================
Public Declare Function ShellExecute Lib "SHELL32" _
        Alias "ShellExecuteA" _
        (ByVal hWnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'========================================================
Sub main()
  Call prfile("D:\ichinose\test.PDF")
'          ↑ここに印刷したいPdfのフルパス
End Sub
'========================================================
Function prfile(ByVal flpath As String) As Long
   prfile = ShellExecute(0, "Print", flpath, _
            vbNullString, vbNullString, 0)
End Function

0 hits

【45331】pdfファイルを印刷するには? テンちゃん 06/12/19(火) 18:28 質問
【45332】Re:pdfファイルを印刷するには? ichinose 06/12/19(火) 21:24 発言
【45333】Re:pdfファイルを印刷するには? 追伸 ichinose 06/12/19(火) 21:35 発言
【45341】Re:pdfファイルを印刷するには? 追伸 テンちゃん 06/12/20(水) 8:19 発言
【45509】Re:pdfファイルを印刷するには? 追伸 太一郎 06/12/28(木) 10:46 質問
【45510】Re:pdfファイルを印刷するには? 追伸 Blue 06/12/28(木) 11:16 発言
【45512】Re:pdfファイルを印刷するには? 追伸 太一郎 06/12/28(木) 11:44 お礼
【45339】Re:pdfファイルを印刷するには? テンちゃん 06/12/20(水) 8:09 発言
【45352】Re:pdfファイルを印刷するには? ichinose 06/12/20(水) 12:27 発言

36585 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free