|
初めて投稿します。
よろしくお願い致します。
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
|
|