Walter Meester
HoogkarspelNetherlands
General information
Category:
Reports & Report designer
Walter,
Thanks again for replying. Here is my code ( command1.click() ):
Local loCRApp, loCRReport, lcView
m.loCrApp = CreateObject('Crystal.CRPE.Application')
If type('loCrApp') = "O" and ! Isnull(loCrApp)
loCRReport = .null.
loCRReport = loCRApp.OpenReport( "D:\Seagate Software\Crystal Reports\RT01.Rpt" )
Else
messagebox('Could not initialise Crystal Reports', 48, 'Error')
Return
Endif
If type('loCrReport') = "O" and ! Isnull(loCrReport)
Thisform.OleControl1.ReportSource = loCrReport
Thisform.OleControl1.ViewReport()
Else
messagebox('Could not open Report', 48, 'Error')
Endif
My form has only two controls, Command1 ( CommandButton ) and OleControl1 ( Smartviewer Control ). I am using Vfp 5a and Crystal Reports Professional V7.01. One unusual thing is that the smart viewer control appears transparent in my vfp form. It shows all its controls in VB though.
Jin
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only