Crystal Report - Ayuda con Action

Les hago una consulta ,estoy comenzando a huzar crystal report con visual Basic y el crystal que trae el visual.
Me da error en la linea de report1.action = 1 no reconoce el objeto.
Muchas gracias

Public Sub imprimirpropuesta()
Dim t1, t As String
t1 = Text1.Text
Report1.DataFiles(0) = App.Path & "\COTINATIVA.MDB"
mens = "ESTA SEGURO DE IMPRIMIR PRESUPUESTO = " + Format$(t1, "0000")
t = MsgBox(mens, 1, "IMPRIME PRESUPUESTO")
For i = 1 To 1000
Report1.Formulas(i) = ""
Next
Report1.Formulas(0) = "asegurado='" + Trim(DBCombo1.Text) + "'"
Report1.Formulas(1) = "tipodoc='" + Trim(Combo1.Text) + "'"
Report1.Formulas(2) = "dni='" + Trim(MaskEdBox1.Text) + "'"
Report1.Formulas(3) = "postal='" + Trim(varpostal) + "'"
Report1.PrintReport
'Report1.Action = 1
End Sub