Sub or Function is not defined

Option Explicit
Public Report As New CrystalReport1
Public mvCn As New ADODB.Connection

     Public Function printReport()

     Dim strConnectionString As String
     Dim rs As ADODB.Recordset
     Dim strScript As String
 
     strConnectionString = "Provider=SQLOLEDB............"
 
     mvCn.ConnectionString = strConnectionString
     mvCn.CommandTimeout = 0
     mvCn.CursorLocation = adUseClient
     mvCn.Open

     strScript = strScript & "SELECT * FROM employee" & vbCrLf

     Set rs = mvCn.Execute(strScript)

     Report.Database.SetDataSource rs
     Report.AutoSetUnboundFieldSource crBMTNameAndValue
    
     CRViewer1.ReportSource = Report
     CRViewer1.ViewReport
    
     Set Report = Nothing

     End Function

Option Explicit

Private Sub Command1_Click()

printReport

End Sub