二次開發：獲取某個打印機紙張列表出錯，在AutoCAD卻正常，幫看看。

(vla-put-CanonicalMediaName layout (nth index (GetPaperList2 configName)))

;;;獲得某打印機紙張類型列表, 例:(setq PaperSizes (GetPaperList2 "PublishToWeb JPG.pc3" ))
(defun GetPaperList2 (configName / app canpapersizearr canpapersizelist canpapersizevar app doc layout)
  (vl-load-com)
  (setq app (vlax-get-acad-object) doc (vla-get-activedocument app) layout (vla-get-activelayout doc))
  (vla-put-configname layout configName)                     ;將打印機設為當前打印機
  (vla-RefreshPlotDeviceInfo layout)
  (setq CanPaperSizeVar (vla-GetCanonicalMediaNames (vla-item (vla-get-layouts doc) "Model"))
        CanPaperSizeArr (vlax-variant-value CanPaperSizeVar)
        CanPaperSizeLIst (vlax-safearray->list CanPaperSizeArr))
)