Excel VBA質問箱 IV

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

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


36572 / 76732 ←次へ | 前へ→

【45339】Re:pdfファイルを印刷するには?
発言  テンちゃん  - 06/12/20(水) 8:09 -

引用なし
パスワード
   ▼ichinose さん:

ありがとうございます。
早速、教えていただいたとおり実行してみました。

>標準モジュールに
>'========================================================
>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

しかし、うまくいきませんでした。
エラーになるわけでもなく完了しますが、プリントもされません。。。

ちなみに、

prfile = ShellExecute(0, "open", flpath, _
            vbNullString, vbNullString, SW_SHOW)

としてみたところ、
1回の実行で、プロセスに"Acrobat.exe"が入り、アプリとしては起動せず、
すぐに2回目の実行をすると、アプリとして起動し、ウィンドウ表示される。
しかし、ソフトが起動するだけで、ファイルが開いていない。
(2回実行しないと起動しないのも不思議ですが・・・)

ということは、ファイルのパスが合っていない?

Call prfile("C:\Documents and Settings\テンちゃん\デスクトップ\test.pdf")

として、実行しています。ちなみに、

Kill pathname:="C:\Documents and Settings\テンちゃん\デスクトップ\test.pdf"

を実行すると、削除されるので、パスの指定はあっているものと考えられる?
何が悪いのでしょうか???

OS:winXP
soft:Acrobat 7.0
printer:ネットワーク越し

プリンタがネットワーク越しだからいけないのかな???

再度、教えていただけませんでしょうか。
お願いします。

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 発言

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