我想获取到页面设置中的打印机名称列表，以及相应的图纸尺寸列表，改怎么办那？
网上搜了一下：
Public Function GetPlotters() As Collection
Set GetPlotters = New Collection
Dim strPlotter As String
strPlotter = Dir(Application.Preferences.files.PrinterConfigPath + "\*.pc3")
While Not strPlotter = ""
GetPlotters.add strPlotter
strPlotter = Dir
Wend
End Function
这个只能获得到绘图仪列表(*.pc3)，其它的得不到，路过的帮帮我？？
Dim plotDevices As Variant 得到打印机
plotDevices = Layout.GetPlotDeviceNames()
Dim mediaNames As Variant 得到样式表
mediaNames = Layout.GetCanonicalMediaNames()
纸张的不清楚。
Dim mediaNames As Variant
mediaNames = Layout.GetCanonicalMediaNames() ’得到图纸尺寸
Dim styleNames As Variant
styleNames = Layout.GetPlotStyleTableNames() ‘得到打印样式
置顶卡
