-
1>designated属性
-
2>height 和width属性
-
3>items属性
-
用法：
-
Dim objoutputdoc as ispssoutputdoc
-
Set objoutputdoc=objspssapp.getgesignatedoutputdoc '声明变量并获取指定的输出文档。
-
Dim objoutputitems as ispssitems
-
Dim objoutputitem as ispssitem
-
Set objoutputitems=objoutputdoc.items '声明并获取项目对象
-
Dim intcount as integer
-
Dim strtype() as string
-
Intcount=objoutputitems.count
-
Redim strtype(intcount)
-
For i=0 to count-1
-
Objoutputitem=objoutputitems.getitem(i)
-
Strtype(i)=objoutputitem.spsstype
-
Next I
-
4>label属性：返回或者设置某个输出项的标签
-
用法：
-
Dim objoutputdoc as ispssoutputdoc
-
Set objoutputdoc=objspssapp.openoutputdoc(“c:\out.spo”)
-
Dim objoutputitems as ispssitems
-
Dim objoutputitem as ispssitem
-
Set objoutputitems=objoutputdoc.items
-
Dim intcount as integer
-
Intcount=objoutputitems.count
-
For i=0 to intcount-1
-
Set objoutputitem=objoutputitems.getitem(i)
-
If objoutputitem.label=‘notes’ then
-
Objoutputitem.selected=true
-
Exit for
-
End if
-
Next i
-
5>left和top属性：设置输出文档对象的位置
-
7>outliningtoolbarvisible属性：在输出浏览器窗口中显示或者隐藏外观工具条。
-
用法：objoutputdoc.outliningtoolbarvisible=true
-
8>printoptions属性：返回打印选项对象。
-
用法：
-
Setobjprintoptions=objoutputdoc.printoptions
-
Objprintoptions.headertext=“str”
-
Objprintoptions.papersize=4
-
Objprintoptions.papersource=1
-
Objprintoptions.startingpagenumber=10 '从第十页开始打印
-
Objoutputdoc.printdoc
-
8>splitterpositon属性：返回或者设置分割线的位置。
-
用法：
-
objoutputdoc.splitterposition=objoutputdoc.width/2
-
9>standardtoolbarvisible属性：返回或者设置标准工具条的可见性。
-
用法：
-
Objoutputdoc.standardtoolbarvisible=true
-
10>visible属性：可见性。
-
11>windowstate属性：窗口状态属性。
转载请注明来自DataScience.
邮箱: 675495787@qq.com