crstal rpt help-send directly to printer

[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

[drrott1]

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

[RobDog888]

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