Error 424: Objeto requerido (Imprimir Datagrid)

[pkj]

No lo tengo muy claro, pero yo diría que te falta crear el rs.

Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs=fichero_txt
Call imprimir(DataGrid, rs, "Formato de Impresión") ==== Aqui es el error
End Sub

Aparte creo que en la declaracion de la función usas la variable fichero_txt y dentro de la funcion usas rs en su lugar, de modo que la declaración debería ser:

Public Function imprimir(ByVal DataGrid As DataGrid, _
ByVal rs As ADODB.Recordset, _
ByVal Titulo As String) As Boolean

Puede que incluso una vez cambiada la declaración, la llamada pueda hacerse así:

Call imprimir(DataGrid, fichero_txt, "Formato de Impresión") ==== Aqui es el error

sin tener que declarar el rs que comentaba al principio

No me hagas mucho caso porque de DB estoy pez, pero ya que nadie dice nada...

Suerte