Erro ao imprimir relatorio

#1

estou com um erro ao imprimir relatório alguém consegue me ajudar ?

script
Sub CommandButton2_Click()

Set Report3 = Application.LoadReport("Relatorio")
Set Consulta = Report3.Item("Consulta1")

Consulta.SQL = Screen.Item("BrwDados").Item("Consulta1").SQL
Consulta.Table = Screen.Item("BrwDados").Item("Consulta1").Table
Consulta.OrderBy = Screen.Item("BrwDados").Item("Consulta1").OrderBy
Consulta.Fields = Screen.Item("BrwDados").Item("Consulta1").Fields
Consulta.DataSource = Screen.Item("BrwDados").Item("Consulta1").DataSource
Consulta.SetVariableValue "ini", CDate(Screen.Item("inicio").Value)
Consulta.SetVariableValue "fim", CDate(Screen.Item("fim").Value)

Consulta.Execute()
Report3.PrintPreview()

End Sub

erro acusado

error 5800 : scripting error. [ extended info:scripting error. [ extended info:section : reportheader , event : onbeforeprint , line number: 6 description:fatal exception during script excution.]]