Option Explicit

Function PruebaImprimeTabla()
 Dim SqlA As String, RstA As Recordset, NumeroArchivo As Long
 SqlA = "Select * from TuTabla"
 Set RstA = CurrentDb.OpenRecordset(SqlA, dbOpenDynaset)
 If RstA.BOF = False Then 
  NumeroArchivo = FreeFile
  Open "LPT1" For Output As #NumeroArchivo
  Print #NumeroArchivo, Spc(15); "Prueba de Impresion de la Tabla"
  Print #NumeroArchivo, Spc(15); "============================== "
  Print #NumeroArchivo,
  Print #NumeroArchivo, "Campo1            Campo2 "
  Print #NumeroArchivo, "===============   ======="
  Do While RstA.EOF = False
   Print #NumeroArchivo, RstA("Campo1"); Spc(6); RstA("Campo2")
  'justifica lo anterior con espacios que creas conveniente
   RstA.MoveNext
  Loop
  Print #NumeroArchivo,
  Print #NumeroArchivo,
  Print #NumeroArchivo,
  Print #NumeroArchivo, "Fin de fichero."
  Close #NumeroArchivo    ' Cierra el archivo.
 Else
  MsgBox "No hay Registros", vbExclamation + vbOKOnly, "Aviso"
 End If
 RstA.Close
 Set RstA = Nothing
 

End Function