help，有关lotus notes的问题

Question

是，这是最好的解决方法，script可以作到的。

Answer 1

Lotus的问题太少了现在偏偏没有lotus的专版能不能以后在JS版讨论呢哎……视图---excel\",\"表单---word\"的问题。版权不详。
《视图---excel》也可作成后台代理
Sub Click(Source As Button)
Dim session As New NotesSession 
Dim db As NotesDatabase 
Dim view As NotesView 
Dim doc As NotesDocument 
Dim excelApplication As Variant 
Dim excelWorkbook As Variant 
Dim excelSheet As Variant 
Dim i As Integer 
\'---
Dim selection As Variant
Set excelApplication = CreateObject(\"Excel.Application\") 
excelApplication.Visible = True 
\'找到excel的位置
path = session.getenvironmentstring(\"directory\",True)
gzpath=path+\"\\\"+\"th.xls\"
\' execelApplication.excel.open(gzpath)
Set excelWorkbook = excelApplication.Workbooks.Add 
Set excelSheet = excelWorkbook.Worksheets(\"Sheet1\") 
\'定义excel的列植
excelSheet.Cells(1,1).Value = \"姓名\" 
excelSheet.Cells(1,2).Value = \"年龄\" 
i = 1 
Set db = session.CurrentDatabase 
\'定义打印的视图
Set view = db.GetView(\"打印\") 
Set doc = view.GetFirstDocument 
While Not(doc Is Nothing) 
i = i + 1 
\'定义域名为“姓名”
excelSheet.Cells(i,1).Value = doc.姓名(0)
excelSheet.Cells(i,2).Value = doc.年龄(0) 
Set doc = view.GetNextDocument(doc) 
Wend 
\'选择a到d列
excelSheet.columns(\"a:d\").select 
\'excelSheet.Columns(A:g).Select 
excelSheet.Columns(\"A:d\").EntireColumn.AutoFit 
\' excelSheet.Columns(\"A:d\").EntireColumn.AutoFit
\'加上表格线
excelsheet.PageSetup.PrintGridlines = True
\'输出到打印机
excelWorkbook.printout
\'保存的位置，防止退出提问（可能可以用excel的模版解决的更好）
excelWorkbook.SaveAs(\"Script 内容\")
excelApplication.Quit 
Set excelApplication = Nothing 
End Sub
《表单---word》
Sub Click(Source As Button)
\' Sub print(printvar() As String,arrnum As Integer)
Dim session As New notessession
path =session.getenvironmentstring(\"Directory\",True) \'notes工作路径
\'word application
Dim  As String
Dim wordapp As Variant
Set wordapp=createobject(\"word.application\")
wordapp.visible=True
wordapp.changefileopendirectory(path)
gzpath=path+\"\\\"+\"workpage.dot\"
wordapp.documents.Open(gzpath)
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = workspace.currentdocument
Set doc = uidoc.document
Dim printvar() As String
Dim arrnum As Variant
arrnum = 10
For i=1 To 2
\'在word中先定义书签，为书签名
=Trim(\"book\"+Trim(Str(i)))
wordapp.activedocument.books().select
\'可改进下面一句，使得内容添近来
\' wordapp.wordbasic.insert(printvar(i))
wordapp.wordbasic.insert(\"test luck test 20\")
Next
wordapp.Activedocument.printout
flag=Msgbox(\"工作票打印已经结束。\",MB_OK,\"提示\")
If flag=1 Then
wordapp.activedocument.close(wdnotsavechanges)
wordapp.quit(wdnotsavechanges)
End If
\'End Sub 
End Sub 看看对你是否有帮助

Answer 2

叶秋枫：Lotus到底是个什么玩艺？
能介绍一下吗？

Answer 3

to zjtn(梦居士)　lotus is 好东西主要用于办公自动化推荐给你一个很好的站youxing.unstar.com