crstal rpt help-send directly to printer

hi,

I need to print an invoice(for a given receiptno) made in crystal reports by clicking the button in my vb form. I want to go directly to the printer.
I found this sample code in this forum and modified it.

dim intrec as integer
intrec = txtreceiptno.text

Dim document As ReportDocument
document = New ReportDocument
document.Load(Application.StartupPath & "\..\reports\YourReport.rpt")
document.SetParameterValue("receiptno", intrec)
document.PrintToPrinter(1, True, 0, 0)

It doesn't seem to work. Could some help me with this...
What are the references I need to have in my project

thanx.in advance

Quote:

---

Originally Posted by terza

hi,

I need to print an invoice(for a given receiptno) made in crystal reports by clicking the button in my vb form. I want to go directly to the printer.
I found this sample code in this forum and modified it.

dim intrec as integer
intrec = txtreceiptno.text

Dim document As ReportDocument
document = New ReportDocument
document.Load(Application.StartupPath & "\..\reports\YourReport.rpt")
document.SetParameterValue("receiptno", intrec)
document.PrintToPrinter(1, True, 0, 0)

It doesn't seem to work. Could some help me with this...
What are the references I need to have in my project

thanx.in advance

---

Is your Report in your Project? (In your Solution Project window). If it is,...

Dim crReportDocument As New YourReportHere
crReportDocument.PrintToPrinter(1, True, 0, 0)

If you are going to keep the form open remember to close the report after the print line.

crReportDocument.Close()

If it is not in your project just right click on your project and then add then add existing item and point it to it.

Cheers!
Craig Schellenbach

Take a look at my example in my signature for "VB6/CR Print Setup". ;)