VB VS.2008 Crystal. Error in File The request could not be submitted for background processing.

Private Sub cmdProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProcess.Click
        Dim prDlg As New PrintDialog
        prDlg.ShowDialog() 
        ' Send dato to Report 
        For i As Integer = 0 To gridData.Rows.Count - 2
            Dim crDoc As New crLbl 
            ' Declare variables needed to pass the parameters to the viewer control.
            Dim paramFields As New ParameterFields
            Dim paramField As New ParameterField
            Dim discreteVal As New ParameterDiscreteValue 
            crDoc.Load(Application.StartupPath & "\crLbl.rpt") 
            
            Dim margins As PageMargins = crDoc.PrintOptions.PageMargins
            margins.bottomMargin = 0
            margins.leftMargin = 200
            margins.rightMargin = 0
            margins.topMargin = 100
            crDoc.PrintOptions.ApplyPageMargins(margins) 
            crDoc.PrintOptions.PrinterName = prDlg.PrinterSettings.PrinterName.ToString 
            paramField = New ParameterField
            paramField.ParameterFieldName = "part_no"
            discreteVal = New ParameterDiscreteValue
            discreteVal.Value = gridData.Rows(i).Cells("user_part_no").Value.ToString  
            paramField.CurrentValues.Add(discreteVal)
            paramFields.Add(paramField) 
            paramField = New ParameterField
            paramField.ParameterFieldName = "weight"
            discreteVal = New ParameterDiscreteValue
            discreteVal.Value = gridData.Rows(i).Cells("weight").Value.ToString & " Lb"
            paramField.CurrentValues.Add(discreteVal)
            paramFields.Add(paramField) 
            paramField = New ParameterField
            paramField.ParameterFieldName = "bxs"
            discreteVal = New ParameterDiscreteValue
            discreteVal.Value = gridData.Rows(i).Cells("bxs_reels").Value.ToString
            paramField.CurrentValues.Add(discreteVal)
            paramFields.Add(paramField) 
            paramField = New ParameterField
            paramField.ParameterFieldName = "load"
            discreteVal = New ParameterDiscreteValue
            discreteVal.Value = gridData.Rows(i).Cells("load_no").Value.ToString
            paramField.CurrentValues.Add(discreteVal)
            paramFields.Add(paramField) 
            paramField = New ParameterField
            paramField.ParameterFieldName = "date"
            discreteVal = New ParameterDiscreteValue
            discreteVal.Value = CDate(transDt.Value).ToShortDateString
            paramField.CurrentValues.Add(discreteVal)
            paramFields.Add(paramField) 
            frmCrView.crView.ParameterFieldInfo = paramFields
            frmCrView.crView.ReportSource = crDoc 
            frmCrView.Show()
            crDoc.PrintToPrinter(1, False, 1, 0)
            frmCrView.Close()
            crDoc.Dispose()
            GC.Collect()
        Next 
    End Sub
                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58: