Just to let everyone know I am sucessfully running on domino 7 using reports created in Crystal Report XI. Here is my code:
Dim m_Viewer As Variant
Dim theReport As Variant
Dim ws As New NotesUIWorkspace
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
'Dim password As String
Dim rpath As String
Dim App As Variant
Dim Rep As Variant
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
uidoc.EditMode = True
Set m_Viewer = uidoc.GetObject(“Crystal Report Viewer Control 9”)
Set App = CreateObject (“CrystalRuntime.Application”)
rpath = uidoc.Fieldgettext(“Path”)
Set Rep = App.OpenReport(rpath)
'not using because don't need anymore
'Password = ws.Prompt (PROMPT_password, "Password", "Enter your password")
' The UserName
'Dim UserName As New NotesName(Session.UserName)
' The password
'Dim Password As String
'Password = Ws.Prompt(PROMPT_PASSWORD, "Password", "Enter your password" )
' Log On
Rep.Database.Tables(1).SetLogOnInfo "WAREHOUSE", "", "", ""
Set m_Viewer.ReportSource = Rep
m_Viewer.ViewReport
m_Viewer.EnableRefreshButton = 1
m_Viewer.EnableExportButton = 1
m_Viewer.EnableDrillDown = 1
Call uidoc.FieldSetText("SaveOptions", "0")
But here is my question. Does anyone know how to control how the documents are printed, meaning on letterhead or plain paper. Having issues since adding users to WindowsXP… love Mr. Gates.
Thanks,