[求助]如何设定打印的纸张尺寸

WWWDONG

请问vba如何在打印时设定打印纸张类型，我下面的程序有错吗？可打印预览发现纸张有误
Layout.ConfigName = "2000.pc3"  '打印机样式
        Layout.StyleSheet = "2000.ctb" '打印样式
        Layout.PaperUnits = acMillimeters   '纸张单位
        
        ThisDrawing.ModelSpace.Layout.UseStandardScale = False
        Layout.SetCustomScale 1, scal       '打印比例
        ThisDrawing.plot.NumberOfCopies = TextBox5.Text '打印份数
        papername = Layout.GetCanonicalMediaNames() '纸张尺寸
        Layout.GetLocaleMediaName (papername(0))

mccad

WWWDONG