crystal report 8 code for vb 6 and MS Acess

my code is here it working but i want to print report when i click on go button it show me report but just i want print report do not show report window.


please tell me also where i can find this correction on your website.can you
can email code.

CrystalReport1.ReportFileName = App.Path & "\" & "reports\Category.rpt"
CrystalReport1.SetTablePrivateData 0, 3, rstResult
CrystalReport1.Destination = crptToWindow
CrystalReport1.WindowTitle = "Category Details"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
rstResult.Close

i well be thanks full for your support
ok
bye

Moved From FAQ Section

Code:

---

CrystalReport1.PrintOut False

---

CrystalReport1.ReportFileName = App.Path & "\" & "reports\Category.rpt"
CrystalReport1.SetTablePrivateData 0, 3, rstResult
CrystalReport1.Destination = crptToPrinter
CrystalReport1.Action = 1
rstResult.Close