關於預設印表機(編號:2198)

本人使用 vb5 + sp3 + win98 在列印時先把預設印表機給記錄起來, 再呼叫 commdialog
的 print 功能, 供使用者切換選擇印表機進行列印工作, 結束後檢查印表機裝置是否為
預設的, 若不是得話要切換回預設印表機裝置, 程式如下...
PName = Printer.DeviceName '記錄預設
' 切換回預設
Dim X AS Printer
For each X in Printers
if X.DeviceName = PName then
  set Printer = X
  Exit For
 End IF
Next
程式執行結果, 預設印表機無法回復, 請問如何才能真正設定預設印表機.