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

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

我正在试着编写一个打印程序，打印机名，纸张名都有相应的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

太好了！谢谢！
页: [1]
查看完整版本: 请问各位专家，VBA里是不是没有设置打印样式的命令？