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

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

<p>我想获取到页面设置中的打印机名称列表，以及相应的图纸尺寸列表，改怎么办那？</p><p>网上搜了一下：<br/>Public Function GetPlotters() As Collection<br/>Set GetPlotters = New Collection<br/>Dim strPlotter As String<br/>strPlotter = Dir(Application.Preferences.files.PrinterConfigPath + "\*.pc3")<br/>While Not strPlotter = ""<br/>GetPlotters.add strPlotter<br/>strPlotter = Dir<br/>Wend<br/>End Function</p><p>这个只能获得到绘图仪列表(*.pc3)，其它的得不到，路过的帮帮我？？</p>

fjfhgdwfn 发表于 2008-12-12 11:51:00

<p>&nbsp;Dim plotDevices As Variant 得到打印机<br/>&nbsp;plotDevices = Layout.GetPlotDeviceNames()</p><p></p><p>&nbsp;Dim mediaNames As Variant&nbsp; 得到样式表<br/>mediaNames = Layout.GetCanonicalMediaNames()</p><p></p><p>纸张的不清楚。</p>

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

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


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