OLÁ GALERA EXPERT!!!!!

 

NEGADA É O SEGUINTE: na empresa temos um sistema que gera um arquivo .txt do qual chamamos de LOG, só que o bicho é gerado todo imendado, ou seja, ele não tem divisão entre uma página e outra, quando termina a 1ª página já começa a 2ª colada com o rodapé da 1° e assim vai a 3ª a 4ª  atééééé a ultima página...

 

Eu tive uma ideia mais ou menos assim: Fazer um programa que localiza a palavra SITEF (cada cabeçalho tem essa palavra) daí eu faço com que salte para PROX. PÁGINA APARTIR DESTA PALAVRA, depois MANDO IMPRIMIR todo o arquivo .txt !!!!!

 

Atualmente fiz um arquivo .bat que pega o arquivo .txt e manda pra impressora, porem, o bicho sai imendado (como citei antes)....

 

ESPERO TER EXPLICADO CORRETAMENTE, QUEM NÃO ACIMILOU, ESCREVE AÍ!!!

DESDE JÁ OBRIGADO, UM ABRAÇO A TODOS!!!!!!!

 

Vc quer imprimir página por página é isso?

"daí eu faço com que salte para PROX. PÁGINA APARTIR DESTA PALAVRA"

 

Como você faz isso?

Você teria que jogar o caractere de salto de página (se não me engano Chr(12)).

 

So quero localizar uma palavra no arquivo .txt e entao a apartir dai fazer saltar para proxima pagina na hora da impressao.

 

ai nao consegui....

So quero localizar uma palavra no arquivo .txt e entao a apartir dai fazer saltar para proxima pagina na hora da impressao igual ao NewPage que se usa no printer..

 

ainda nao consegui...

Tenta assim:

 

Private Sub CommandButton1_Click()
Dim file As String
Dim file2 As String
Dim Extensao As String
Dim texto As String
Dim pagina As String
Dim arquivo As String
Dim i As Long
 
file = "c:Teste_pagina"
Extensao = ".txt"
Open file & Extensao For Input As #1
texto = ""
pagina = ""
Do While Not EOF(1)
    Line Input #1, texto
    If UCase(Trim(texto)) = "PAGINA" Then
        file2 = file & "_" & Format(i, "00") & Extensao
        'Grava arquivo
        Open file2 For Output As #2
        Print #2, pagina
        Close #2
       
        'lê o arquivo para impressão
        Open file2 For Input As #2
        arquivo = Input(LOF(2), #2)
        Printer.Print arquivo
        Printer.EndDoc
        Close #2
        i = i + 1
       
        'deleta o arquivo temporário
        Kill file2
        pagina = ""
        texto = ""
    Else
        pagina = pagina & texto & vbNewLine
    End If
   
Loop
Close #1
End Sub