[求助]获取页面设置中的打印机列表和相应的图纸尺寸列表

odjiang

我想获取到页面设置中的打印机名称列表，以及相应的图纸尺寸列表，改怎么办那？

网上搜了一下：
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)，其它的得不到，路过的帮帮我？？

fjfhgdwfn

 Dim plotDevices As Variant 得到打印机
 plotDevices = Layout.GetPlotDeviceNames()

 Dim mediaNames As Variant  得到样式表
mediaNames = Layout.GetCanonicalMediaNames()

纸张的不清楚。

chaily

Dim mediaNames As Variant  
mediaNames = Layout.GetCanonicalMediaNames() ’得到图纸尺寸
Dim styleNames As Variant
styleNames = Layout.GetPlotStyleTableNames() ‘得到打印样式