Imprimir segun filtro de fecha desde formulario

Hola
Hace un par de dias, un amigo consultaba lo siguiente: " Hola, soy algo nuevo en esto de excel y necesito que alguien me pueda ayudar con una macro he estado realizando.
La macro consiste en lo siguiente:
Tengo el formulario que contiene un cuadro de texto y un boton de comando, en el cuadro de texto se introduce la fecha y al dar un click sobre el boton, que me imprima solo los registros de la fecha indicada"

Lo que se me ocurrio fue realizar un filtro avanzado, en el mismo lugar, es decir en la misma hoja... una vez se filtra por la fecha ingresada desde el formulario, se manda a la impresora inmediatamente y luego se muestran los datos, quedando completamente visible la BD

Ver codigo:

Private Sub CommandButton1_Click()
        
    Application.ScreenUpdating = False
    With ActiveSheet
        With Range("A2")
            .Value = Format(Me.TextBox1, "0")
            .NumberFormat = "m/d/yyyy"
        End With
        Cells.Rows.AutoFit
        Cells.Columns.AutoFit
        With Range("A4").CurrentRegion
            .AdvancedFilter 1, Range("A1").CurrentRegion 'Range("A1:A2")
            .PrintOut
        End With
        If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
        Unload Me
    End With
    Application.ScreenUpdating = True
    
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Revisen el adjunto y espero sea de utilidad a ustedes

Saludos desde Honduras