Sample Crystal/VB Application

[Mark Gambo]

Does anyone have a simple VB app that prints a simple Crystal 8.5 Report?


Thanks!

[Mark Gambo]

Bump

[brucevde]

As simple as it gets.

Dim objCrystalApp As CRAXDRT.Application
Dim objReport as CRAXDRT.Report
 
Set objReport = objCrystalApp.OpenReport(ReportFileName, 0)
 
objReport.PrintOut True
 
Set objReport = nothing
Set objCrystalApp = nothing

[cid]

I'll make one give until 2:05 because I'm in class.

[Mark Gambo]

Bruce,
Thanks for your response, I really appreciate it! I assume from reviewing your code that the a crystal report will be loaded and printed. If wanted to pass a value to the report how would I modify your code? Also I assume the report connects directly to the data source (ADO) rather than the vb app?


Thank you again!

[cid]

i dunno. I am in a hurry and couldnt read all that junk you posted. But take a look at my app. It might be what your looking for. And if you want help just post and ill give you a more advanced program.

[Mark Gambo]

Thanks cid, i'll take a look at the "Crap" that you sent me ).

[Mark Gambo]

CID,
Thank you, for your app it really helped me understand cr. One question, where in your app are you assigning the report title?

Thanks!

[cid]

Ok here we go...
Click...
(1)Project
(2)Add Crystal Reports 8.5
(3)Use A Report Expert
(4)Highlight Standard
(5)Click Other And Attach A Database
(5)Fields(add the fields you want in the report)
(6)Click Style
(7)Then Type The Title
(8)Highlight Drop Table
(9)Click Finish
(10)And just because i wanted an even number: