[[20071114140954]]　『ＰＤＦファイルのオープン』（しんぼう）　ページの最後に飛ぶ

『ＰＤＦファイルのオープン』（しんぼう）

 Ｗｉｎ：ＸＰ
 ＥＸＣＥＬ：２０００　を使用しています。

 エクセルより、指定したＰＤＦファイルを印刷したいと思うのですが
 印刷できるのですがアクロバットの終了方法が分かりません。

 印刷部分は[[20060927140643]]　を参考にしてます。

 よろしくお願いします。

 SendKeysを使っているのであまりお勧めではないですが・・・。

 Dim IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
   .Visible = True
   .navigate "ＰＤＦファイルのフルパス"
   While .Busy
   Wend
   .ExecWB 6, 2
   While .Busy
   Wend
   Application.Wait Now + TimeSerial(0, 0, 8) '秒数は適宜調整
   Application.SendKeys ("{ENTER}")
   .Quit
  End With
 (MARBIN)

 MARBIN　様　回答ありがとうございます。

 早速試してみたのですが、プリンタ選択画面でとまってしまいます。
 カレントのプリンタで出力を自動にしたいのですが、どうしたらよいでしょうか？

 (しんぼう)

 > '秒数は適宜調整
 秒数が多いだけでは？
 少なすぎてもエラーになる可能性がありますが・・・。
 指定秒数以上経ってもそのままの場合は、
 Sendkeys
 が働いてない可能性があります。
 Sendkeys
 は不安定ですので、これでダメなら他の方法を考えた方がいいです。
 マクロ以外で、ということではないですよ。
 (MARBIN)

 MARBIN　様　速い回答に感謝しています。

 書いてくださったソースで
 Dim IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
   .Visible = True
   .navigate "ＰＤＦファイルのフルパス"
   While .Busy
   Wend
   .ExecWB 6, 2
   While .Busy　　←で無限ループしている？
   Wend
   Application.Wait Now + TimeSerial(0, 0, 8) '秒数は適宜調整
   Application.SendKeys ("{ENTER}")
   .Quit
  End With

 上記の部分でとまっているようなので、コメントにして動かしたらスムーズに
 動きました。とても助かりました。
 (しんぼう)

コメント返信：

[ 一覧(最新更新順) ]

[[20071114140954]] 『ＰＤＦファイルのオープン』（しんぼう） ページの最後に飛ぶ

[[20071114140954]]　『ＰＤＦファイルのオープン』（しんぼう）　ページの最後に飛ぶ