【求助】这样设置纸张为什么不对？

StartMe

Dim MediaName As String
.........'设置打印机名称
ThisDrawing.ActiveLayout.CanonicalMediaName=MediaName      '设置纸张，MediaName已获得值，出错语句！
.........'设置其它

这样以以名称指定图纸大小时运行出错，ThisDrawing.ActiveLayout.CanonicalMediaName的值始终不能被赋予新值（始终是“A3”），这是为什么呢？谢谢！