Hi… I have the following agent which provide the summary of a view in an excel file on web
vnm=doc.vnm(0)
Set db = session.CurrentDatabase
Set view = db.GetView(vnm)
Set nav = view.CreateViewNav
Dim vc As NotesViewColumn
Dim k
Print {Content-Type:application/vnd.ms-excel}
Print {<HTML><HEAD>}
Print {</HEAD>}
Print {<BODY>}
Print {<TABLE>}
Dim dc As NotesViewEntryCollection
Set dc=view.allentries
Dim i
Print {<TR>}
For k=1 To view.ColumnCount
Set vc=view.Columns(k-1)
Print {<TD WIDTH=100><B>}+vc.Title+{</B></TD>}
Next
Print {</TR>}
For i=1 To dc.count
' Go through all the entries in the view
Set entry = nav.Getnth(i)
Print {<TR>}
For k=1 To view.ColumnCount
Print {<TD>} & Cstr(entry.ColumnValues(k-1)) & {</TD>}
Next
Print {</TR>}
Next
Print "</TABLE></BODY></HTML>"
I want the same file to be generated as PDF
tried
Print {Content-Type:application/pdf}
Print {<name>Portable Document Format</name>}
Print {<fileExtensions><fileExtension>.pdf</fileExtension></fileExtensions>}
but does not seem to work…
any suggestions please??