[求助]：关于vba打印

hzw000000 · 发表于 2005-11-2 17:01:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

AUTOCAD2002为什么用vba获得HP430的打印尺寸全部都是USER1281、USER****、……。
无法得到正常的A1、A2等的尺寸。本人想实现AUTOCAD2002的批量打印程序。

ps122 · 发表于 2005-11-3 11:08:19

需要做个转换，但是赋值还得用这个

hzw000000 · 发表于 2005-11-4 08:57:33

请问具体要怎样转换，谢谢帮忙！

macula55 · 发表于 2005-11-4 10:26:41

这个我也很关心！

pda · 发表于 2005-11-4 20:03:31

嗯，高手快来指点阿

tigersapce · 发表于 2005-11-6 14:21:26

按窗口打印不就行了吗?
看我的附件!

adisonmaster · 发表于 2005-11-8 11:20:27

6楼的附件不能下？

zxhliu · 发表于 2006-7-31 23:36:52

附件可以下载。

tigersapce · 发表于 2006-8-9 19:32:33

Dim Layout As AcadLayout
Set Layout = ThisDrawing.ModelSpace.Layout

' Refresh the current plot information for
' this session.
Layout.RefreshPlotDeviceInfo

' List all the valid device names for the system
Dim plotDevices As Variant
plotDevices = Layout.GetPlotDeviceNames()

Dim x As Integer
For x = LBound(plotDevices) To UBound(plotDevices) '得到系统的打印机
      ComboBox2.AddItem plotDevices(x)

Next
   ComboBox2.BoundColumn = 0
'把组合框设置为第一个条目
ComboBox2.ListIndex = 0

   Dim styleNames As Variant
   styleNames = Layout.GetPlotStyleTableNames()

For x = LBound(styleNames) To UBound(styleNames)'得到打印样式表
      ComboBox3.AddItem styleNames(x)
Next
ComboBox3.BoundColumn = 0
'把组合框设置为第一个条目
ComboBox3.ListIndex = 0

Dim mediaNames As Variant
mediaNames = Layout.GetCanonicalMediaNames()

For x = LBound(mediaNames) To UBound(mediaNames)'得到打印机纸张类型
   ComboBox1.AddItem (mediaNames(x))
Next
   ComboBox1.BoundColumn = 0
'把组合框设置为第一个条目
ComboBox1.ListIndex = 1



End Sub

看看我写的东西吧.

lijizhi007 · 发表于 2006-9-21 22:57:30

感谢9楼楼主!

sdlqwh · 发表于 2006-10-2 12:41:19

我一直也很关心这个，多谢9楼楼主

账号		自动登录	找回密码
密码			立即注册

[求助]：关于vba打印

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子