Excel VBA質問箱 IV

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

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


10944 / 13644 ツリー ←次へ | 前へ→

【19024】PDFを印刷し、AcrobatReaderを終了する わんこ 04/10/19(火) 17:18 質問[未読]
【19028】Re:PDFを印刷し、AcrobatReaderを終了する わんこ 04/10/19(火) 17:49 お礼[未読]

【19024】PDFを印刷し、AcrobatReaderを終了する
質問  わんこ  - 04/10/19(火) 17:18 -

引用なし
パスワード
   初めて投稿します。
よろしくお願い致します。

EXCELのVBAで、PDFファイルを印刷して、AcrobatReaderを終了させたいです。
指定したPDFファイルは、印刷することができ、ファイル自体は印刷後に終了するのですが、AcrovatReaderが終了せず、デスクトップ上に残ってしまいます。

どうすればいいのでしょうか。ご教授よろしくお願い致します。


'Acrobatファイル印刷関数
Sub print_Acrobat(file_path$)
  
  Dim lKey As Long     'ルートキーハンドル
  Dim strSubKey As String  'サブキー
  Dim strItem As String   'アイテム
  
  lKey = HKEY_CLASSES_ROOT
  strSubKey = "AcroExch.Document\shell\Print\command"
  strItem = ""

  strTmp = Reg_GetValue(lKey, strSubKey, strItem)
  
  strFind = "%1"
  strReplace = file_path
  strNewString = Replace(strTmp, strFind, strReplace)
  
  MsgBox strNewString
  
  myID = Shell(strNewString, vbNormalNoFocus)
  
End Sub

【19028】Re:PDFを印刷し、AcrobatReaderを終了する
お礼  わんこ  - 04/10/19(火) 17:49 -

引用なし
パスワード
   申し訳ありません。
解決しました。

SendKeys "^q", True

で、AcrobatReaderを操作すればよいことがわかりました。
ありがとうございました。

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