コマンドラインを利用しての印刷が出来なくなりました
ACCESSのVBAで 下記の様なコードを利用してPDFの印刷を行っていたのですが、先日2023/9/25頃から突然 印刷がされなくなりました。
（windows は 11 の 64bit です。accessは office365-64bit）
アップデートなどによりコマンドラインの記述方法が変更されたりしましたでしょうか？
Private Function PrintOut(fullFolderPath As String, filename As String)
'//「IWshRuntimeLibrary」ライブラリにある「WshShell」型のオブジェクトを宣言し、変数「obj」にセット
Dim obj As IWshRuntimeLibrary.WshShell
Set obj = New IWshRuntimeLibrary.WshShell
'//プリンター名 ※プリンター名はイミディエイトウィンドウに「?Application.ActivePrinter」で取得可能（「on Ne00」の前までがプリンター名）
Dim printerName As String
'//★プリンター名をセット
printerName = Application.Printer.DeviceName
'//プリントアウト用のコマンド設定
Dim printOutCommand As String
printOutCommand = "Acrobat.exe /n /p /h " & fullFolderPath & filename
On Error Resume Next
'//プリントアウト用のコマンド実行
obj.Run (printOutCommand)
'//オブジェクトで使用していたメモリを開放
Set obj = Nothing
End Function
申し訳ありませんが どなたかご教授頂けると助かります。
どうぞよろしくお願い致します。
AdChoices