Exportar informe de Access a un archivo TXT sin saltos de líneas

Si te entiendo bien quieres exportar una serie de registros que muestras en un informe a un archivo txt con todos los valores de los campos de los diferentes registros unidos en una cadena de texto sin saltos de línea.

Por ejemplo. Tienes dos registros con dos campos. En el primer registro tienes en el campo 1 el valor de texto A, en el segundo una B, en el primer campo del segundo registro tienes una C y una D en el segundo campo del segundo registro. Para exportar esto y que en un txt te quede la secuencia ABCD sin espacios ni saltos de línea tienes que hacer la creación y el 'llenado' del txt por código. La exportación incorporada en Access te generará un salto de línea por registro.

Para ejecutar el código yo pondría un nuevo botón en el formulario desde el que llames al informe (en ese formulario puedes tener los criterios de selección de registros que muestras en el informe o...). A ese botón le copias el código que te adjunto. En el código de ejemplo que te adjunto. En él verás que se usa un recordsetclone, es decir, una copia de los registros que presentaría el informe (ya que toma el mismo origen de datos o consulta en la que esté basado el informe). Se crea una cadena de texto que contiene todos los valores en mi ejemplo de los dos campos en todos los registros que existan. Esta cadena finalmente se pasa a un procedimiento que es que crea el txt en la ruta que le indiques en el ejemplo crea el archivo c:\access\prueba1.txt

No he probado el código ya que lo he escrito sin crearme la tabla, formulario ... pero no creo que tenga errores importantes. Pruébalo y si no era esto lo que querías especifica un poco más tu pregunta.

Cordiales saludos.

Option Compare Database
Option Explicit
Private Sub ExportarATxtSinEspacios_Click()
On Error GoTo Err_ExportarATxtSinEspacios_Click
    Dim miBD As Database, misRegistros As Recordset, cuantosRegistros As Integer
    Dim miTextoUnido As String
    Dim msg As String, estilo, title As String
    Set miBD = CurrentDb
    Set misRegistros = Reports![miInformee].RecordsetClone
    With misRegistros
        .MoveLast
        .MoveFirst
        cuantosRegistros = .RecordCount
        Do Until .EOF
            miTextoUnido = miTextoUnido & !Campo1
            miTextoUnido = miTextoUnido & !Campo2
            .MoveNext
        Loop
        .Close
    End With
    Set miBD = Nothing
    If TextStreamTest(miTextoUnido) = False Then
        estilo = vbCritical + vbOKOnly
        title = "Error en la creación del archivo txt."
        msg = "Se ha producido un error en..."
        MsgBox msg, estilo, title
    Else
        estilo = vbInformation + vbOKOnly
        title = "Creación correcta del archivo txt."
        msg = "Se han exportado " & cuantosRegistros & " registros al archivo de txt..."
        MsgBox msg, estilo, title
    End If
Exit_ExportarATxtSinEspacios_Click:
    Exit Sub
Err_ExportarATxtSinEspacios_Click:
    MsgBox Err.Description
    Resume Exit_ExportarATxtSinEspacios_Click
End Sub
Function TextStreamTest(miTextoAExportar As String) As Boolean
    TextStreamTest = False
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "c:\access\prueba1.txt"            'Crear un archivo
    Set f = fs.GetFile("c:\access\prueba1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write miTextoAExportar
    ts.Close
    TextStreamTest = True
End Function

¡Gracias! 

En la actualidad, tomando tu ejemplo, el informe genera:

AB

CD 

y deseo un archivo TXT:

AB

CD

Será posible?

Perdona pero no entiendo tu pregunta. El código te debe de generar ABCD en el txt. ¿No te lo genera?

¿Puedes especificar que deseas en el txt, ya que lo que dices que genera y lo que deseas parece lo mismo?

Cordiales saludos.

El archivo .txt que genera el reporte es:

AB

CD (con una línea en blanco entre ambos datos).

el archivo .txt que deseo obtener debe ser:

AB
CD

Saludos