请问各位专家，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

太好了！谢谢！

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

发表回复

精选推荐