colega o ideal é vc postra a maneira que está utilidando para gerar este txt

 

Treze,

 

eu postei como estou gerando o arquivo (já gerei o arquivo utilizado o PRINT e Scripting.FileSystemObject.).

 

 

será que é alguma formatação que deve ser feita

 

'Jorge faz um misto dos dois, acho que vai resolver

 

o código a seguir ja imprime no bloco de notas, depois basta vc salvar

 

veja se ajuda

 

'Variavel GLOBAL FSO e TEMP
Dim FSO, TEMP

Private Sub Command1_Click()

'Cria o novo txt temporário na pasta temporaria do sistema
Open TEMP & "exportado.txt" For Output As #1
'Manda para o arquivo de texto

Print #1, aqui o seu codigo do sintegra

 

Close

'Abre o bloco de notas maximizado com o arquivo txt gerado !!
Shell ("Notepad.exe " & TEMP & "exportado.txt"), vbMaximizedFocus

End Sub

Private Sub Command2_Click()

'Pergunta se deseja finalizao programa
If MsgBox("Tem certeza que deseja sair ?", vbQuestion + vbYesNo, "Confirmação !!") = vbYes Then
    'Se sim, finaliza
    End
Else
    'Se não, cancela a saida do programa
    Cancel = -1
End If

End Sub

Private Sub Form_Load()

'Seta na variavel FSO o Componente File System Object
Set FSO = CreateObject("Scripting.FileSystemObject")

'Grava na variavel TEMP o caminho da pasta temporária do sistema
TEMP = FSO.GetSpecialFolder(2)

End Sub

 

veja se ja ajuda

 

jorge tem como voce me enviar este programa para gerar o txt do sintegra?

eu agradeço.