Sub Initialize
Dim s As New NotesSession
Dim LdbCur As notesdatabase
Set LdbCur=s.CurrentDatabase
Dim LdocCur As NotesDocument
Set LdocCur=s.DocumentContext
If LdocCur.IsPrint(0)="0" Then
LdocCur.IsPrint="1"
Call LdocCur.save(False,False)
End If
Print {<script language=javascript>document.all.Pr.click;</script>}
End Sub
全部代码就是这样的了,调用"Pr"按钮,或者能在相同的地方调用jsheader里面的PrinDoc()函数也行.
恕我愚笨,我还是没有弄清楚.你的:doc.aaa=|<script language=javascript>alert("删除成功!!!");document.all.query.click(); </script>| 里面的"|"是什么用法?我的语句:LdocCur.aaa={<script language=javascript>document.all.Pr.click();alert("删除成功!!!"); </script>},其中aaa域已经内置html了,但是按钮并没有执行,alert可以执行,我的完整程序是这样的:Sub Initialize
Dim s As New NotesSession
Dim LdbCur As notesdatabase
Set LdbCur=s.CurrentDatabase
Dim LdocCur As NotesDocument
Set LdocCur=s.DocumentContext
If LdocCur.IsPrint(0)="0" Then
LdocCur.IsPrint="1"
Call LdocCur.save(False,False)
End If
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
End Sub