在PowerPoint中使用VBA宏腳本代碼來檢測打印機

分類: PPT基礎教程下載: 日期: 2017-08-29

如果你想使用PowerPoint中的宏腳本來自動打印一張幻燈片是不是默認打印機,或者如果您要檢測如果某打印機的名稱存在於系統中,那麼你可以使用下面的VBA特定的打印機宏來執行此任務。

宏通過執行系統調用和返回一個值,該值與打印機名稱相比將允許用戶知道如果打印機是在系統中存在或不工作良好的Microsoft Office的Windows。

 私人聲明函數庫CreateIC“GDI32”別名“CreateICA”(BYVAL lpDriverName作為字符串,BYVAL lpDeviceName作為字符串,BYVAL lpOutput作為字符串,BYVAL lpInitData長)只要

公共職能GETPRINTER(BYVAL strPrinterName作為字符串)只要
    GETPRINTER = CreateIC(“WINSPOOL”,strPrinterName,vbNullString,0)
結束功能

子SearchPrinter()
    昏暗PRINTERNAME作為字符串
    PRINTERNAME =“請在此輸入打印機名稱”
    'PRINTERNAME =“傳真”
    如果GETPRINTER(PRINTERNAME)= 0。然後
        MSGBOX(“打印機”和PRINTERNAME&“未找到”)
    其他
        MSGBOX(“打印機”和PRINTERNAME&“被發現OK!”)
    萬一
結束小組

請務必與您要比較的打印機的名稱,以取代PRINTERNAME變量。 根據您的需求,你需要相應調整腳本。

舉例來說,如果你的打印機選項看起來如下:

VBA選擇打印機宏

然後,您可以通過“微軟打印到PDF”,一旦執行SearchPrinter宏,它會顯示替換PRINTERNAME變量“打印機Microsoft打印到PDF被發現OK!”