Crystal Report Failure

[jorgemiguel.paulino]

Hi,

I'm using VB.NET 2002 and Access 2002 databases in my application. I
have also one Dataset for each report that I have. I doing my reports
with crystal reports and I use textobject to add some particular
information, like this:

Dim dbDataAdapter As OleDbDataAdapte r
Dim dbDataSet As New dsBalancete()
Dim frmCrystalRepor t As New frmCrystalRepor tViewer()
Dim ReportBalancete As New rptBalancete()

Dim SQL as String
Dim objTextObject As TextObject

' Opens the connection
Connection.Open ()

SQL = "SELECT * FROM qBalancete;"
dbDataAdapter = New OleDbDataAdapte r(SQL, dbConnection)
dbDataAdapter.F ill(dbDataSet, "qBalancete ")
ReportBalancete .SetDataSource( dbDataSet)

' Closes the connection
Connection.Clos e()

dblTotal = 5465464
objTextObject =
ReportBalancete .ReportDefiniti on.ReportObject s.Item("TextTot al")
objTextObject.T ext = Format(dblTotal , "Currency")

If Preview Then
frmCrystalRepor t.CrystalReport Viewer1.ReportS ource =
ReportBalancete
Else
ReportBalancete .PrintToPrinter (1, True, 1, 1000)
End If

objTextObject = Nothing
dbDataAdapter = Nothing
dbDataSet = Nothing

The problem is that when I print, with PrintToPrinter statement it
works just fine but when I try to preview it doesn't appear on then
screen.

What's happening ?

Tanks in advance,
Jorge