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

odjiang 发表于 2008-12-12 10:23:00

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

我想获取到页面设置中的打印机名称列表，以及相应的图纸尺寸列表，改怎么办那？
网上搜了一下：
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 发表于 2008-12-12 11:51:00

Dim plotDevices As Variant 得到打印机
plotDevices = Layout.GetPlotDeviceNames()
Dim mediaNames As Variant得到样式表
mediaNames = Layout.GetCanonicalMediaNames()
纸张的不清楚。

chaily 发表于 2012-5-4 16:51:00

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

查看完整版本: [求助]获取页面设置中的打印机列表和相应的图纸尺寸列表