|
▼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:ネットワーク越し
プリンタがネットワーク越しだからいけないのかな???
再度、教えていただけませんでしょうか。
お願いします。
|
|