VB Crystal Report, Very perplexed newbie- HELP!!

Very perplexed newbie- HELP!!

Author	Message
Bob Holme #1 / 3	Very perplexed newbie- HELP!! Hi Alison, Create your report with Crystal Reports Designer and save the .rpt file. In VB, add the Crystal Report component to your form and then use code like the following: CrystalReport1.FileName = "c:\MyReport.rpt" CrystalReport1.Destination = crptToWindow CrystalReport1.PageFirst 'I'm not sure what this does, but, I found it was better to include it. CrystalReport1.Action = True Bob Holmes Quote: > Hi guys > Sorry if this question is naive but, I have installed the > Crystal ocx which is shipped with VB 6.0. I also have > Crystal reports 8.0 installed on my PC. As part of my VB > application, I want to display a Crystal report- I'm just > not sure what to do. > Thanks > Ali
Sat, 21 Aug 2004 02:13:43 GMT

Lewis Gardne #2 / 3	Very perplexed newbie- HELP!! In the below you really only need two commands: CrystalReport1.FileName = "c:\MyReport.rpt" CrystalReport1.PrintReport Quote: > Create your report with Crystal Reports Designer and save the .rpt file. >In VB, add the Crystal Report component to your form and then use code like >the following: > CrystalReport1.FileName = "c:\MyReport.rpt" > CrystalReport1.Destination = crptToWindow > CrystalReport1.PageFirst 'I'm not sure what this does, but, I found it >was better to include it. > CrystalReport1.Action = True
Sat, 21 Aug 2004 06:28:39 GMT

Wolfgang Wol #3 / 3	Very perplexed newbie- HELP!! Hi Bob, [...] Quote: > CrystalReport1.FileName = "c:\MyReport.rpt" > CrystalReport1.Destination = crptToWindow > CrystalReport1.PageFirst 'I'm not sure what this does, but, I found it Quote: > was better to include it. > CrystalReport1.Action = True [...] With CR8 ???? Private Sub showReport(sReportFile as string) On Local Error GoTo errReport Dim crApp As New CRAXDRT.Application Dim crRep As New CRAXDRT.Report Set crRep = crApp.OpenReport(sReportFile, 1) CRViewer1.ReportSource = crRep CRViewer1.ViewReport Set crRep = Nothing Set crApp = Nothing Exit Sub errReport: Set crRep = Nothing Set crApp = Nothing MsgBox "Fehler: " & Err & vbCrLf & Error(Err), 16 End Sub W. Wolf
Sun, 22 Aug 2004 21:14:23 GMT

Page 1 of 1

[ 3 post ]