请问各位专家，VBA里是不是没有设置打印样式的命令？

wendy_tc · 发表于 2004-7-18 23:35:00

我正在试着编写一个打印程序，打印机名，纸张名都有相应的GET 和 SET语句，可打印样式名只有读取的语句，请问怎样设置当前的打印样式名称，谢谢

wendy_tc · 发表于 2004-7-20 22:07:00

顶一下，希望有人能告诉我一下

CLARKLEE · 发表于 2004-7-22 13:54:00

我来告诉你把首先获得当前可用的所有的打印样式列表 styleNames = ThisDrawing.ActiveLayout.GetPlotStyleTableNames()
然后将他们增加列表：
For X = UBound(styleNames) To LBound(styleNames) Step -1
ComboBox5.AddItem styleNames(X)

Next 然后选取列表值 x=combobox5.text 最后给打印样式属性附值 ThisDrawing.ActiveLayout.StyleSheet = X ok了

wendy_tc · 发表于 2004-7-22 22:31:00

太好了！谢谢！

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