快速變換設成預設的印表機

說明：因工作需要，才上網發問說一台印表機，有時後要選擇自動選紙匣；有時使用手動紙匣！所以我先安裝兩個不同名稱同一台印表機項目，然後把P1印表機設成自動選紙匣功能；在把P2印表機設成手動紙匣模式！然後在套用如下的語法！
如下語法複製起來→開啟「記筆本」→貼上剛剛複製的語法→然後在「strPrinter = ""」輸入印表機名稱→儲存檔案→副檔名改成.vbs！

切記要儲存兩個.vbs檔案，一個檔案是自動選紙；另一個檔案是手動選紙！


strPrinter = "你的印表機名稱"
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
strWQL = "select * from Win32_Printer WHERE name='" & strPrinter & "'"
Set objInstances = objWMI.ExecQuery(strWQL,,48)
For Each objInstance in objInstances
intResult = objInstance.SetDefaultPrinter
If intResult=0 Then
WScript.Echo "Set Default Printer to "&strPrinter
Exit For
End If
Next