Help,please Crystal Reports Parameter Values

Hi
can anyone help me with this problem.

I have a report, which I want to print directly to the printer. When using the viewer, I have no problems with displaying the Parameter Information on the page heading but without it, it just doesn't sem to work.

The example in Crystal Reports although I believe I followed it correctly isn't thatr clear and well here is what I have coded, if you can see what is wrong, please post a reply.

Dim DbCn1 As New DbConn()
Dim dbnam As String
Dim SqlStr As String
dbnam = DbCn1.DbName
Dim Cn1 As New OleDb.OleDbConnection(dbnam)
Dim Cb1 As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(da2)
' Update Property Units with changed Print List flag
Cn1.Open()
da2.Update(ds2, "PropertyUnits")
Cn1.Close()
Dim Rpt1 As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim p1 As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition
Dim d1 As New CrystalDecisions.Shared.ParameterDiscreteValue()
Dim d2 As New CrystalDecisions.Shared.ParameterValues()
Dim RptLocn As New RptLocn()
Dim RptPath As String
Dim Slct As String = "{PropFixandFitt.Property} = " & CStr(thisprprty) & " and {PropFixandFitt.Prt} = 1"


RptPath = RptLocn.RptLoc
Rpt1.Load(RptPath & "\FixandFitList.rpt")
' Rpt1.RecordSelectionFormula = Slct
Rpt1.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Portrait

' Set the Page Heading to Registered User
SqlStr = "Select RegisteredUser from SystemValues where sysval = 1"
Dim Cmd1 As OleDb.OleDbCommand = New OleDb.OleDbCommand(SqlStr, Cn1)
Cn1.Open()
Dim Dr1 As OleDb.OleDbDataReader = Cmd1.ExecuteReader()
Dr1.Read()
p1 = Rpt1.DataDefinition.ParameterFields.Item("RegUser")
d1.Value = Dr1("RegisteredUser")
d2.Add(d1)

d2 = p1.CurrentValues

p1.ApplyCurrentValues(d2)
Rpt1.PrintToPrinter(1, False, 0, 0)

thanks in advance anyone that can help

well eventually go it to work and if there is anyone else that has had this problem, here is some sample code that works:

Dim DbCn1 As New DbConn()
Dim dbnam As String
Dim SqlStr As String
dbnam = DbCn1.DbName
Dim Cn1 As New OleDb.OleDbConnection(dbnam)
Dim Cb1 As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(da2)
' Update Property Units with changed Print List flag
Cn1.Open()
da2.Update(ds2, "PropertyUnits")
Cn1.Close()
Dim Rpt1 As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument()

Dim d1 As New CrystalDecisions.Shared.ParameterDiscreteValue()
Dim d2 As New CrystalDecisions.Shared.ParameterValues()
Dim RptLocn As New RptLocn()
Dim RptPath As String
Dim Slct As String = "{PropFixandFitt.Property} = " & CStr(thisprprty) & " and {PropFixandFitt.Prt}"


RptPath = RptLocn.RptLoc
Rpt1.Load(RptPath & "\FixandFitList.rpt")
Rpt1.RecordSelectionFormula = Slct
Rpt1.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Portrait

' Set the Page Heading to Registered User
SqlStr = "Select RegisteredUser from SystemValues where sysval = 1"
Dim Cmd1 As OleDb.OleDbCommand = New OleDb.OleDbCommand(SqlStr, Cn1)
Cn1.Open()
Dim Dr1 As OleDb.OleDbDataReader = Cmd1.ExecuteReader()
Dr1.Read()

d1.Value = Dr1("RegisteredUser")
Dr1.Close()
Cn1.Close()

d2.Add(d1)

Rpt1.DataDefinition.ParameterFields("RegUser").ApplyCurrentValues(d2)
Rpt1.PrintToPrinter(1, False, 0, 0)