| |
kohjiさん
ありがとうございます。早速試してみましたが、なんかうまくCanon952M（通常使うプリンタ）からAdobe PDFへ切り替えできていないようです。
ご指導ください。よろしくお願いします。
"Adobe PDFへの出力をSetする
Function AdobePDF_PrintSet()
Dim WN As Object
Set WN = CreateObject("WScript.Network")
WN.SetDefaultPrinter ("Adobe PDF")
Set WN = Nothing
End Function
"プリンタの元状態に戻す
Function Default_PrintSet()
Dim WN As Object
Set WN = CreateObject("WScript.Network")
WN.SetDefaultPrinter "Canon952M"
Set WN = Nothing
End Function
Function マクロ1()
On Error GoTo マクロ1_Err
Call AdobePDF_PrintSet
DoCmd.OpenReport "テスト用クエリ", acViewPreview, "", "", acNormal
Call Default_PrintSet
マクロ1_Exit:
Exit Function
マクロ1_Err:
MsgBox Error$
Resume マクロ1_Exit
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
