Dário Cardoso
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 08/05/2007 16:50 hs
 isso!!!! Em cada cabeçalho tem a palavra PAGINA daí então eu quero localiza-lá mais o problema é que tem PAGINA:01, PAGINA:02, PAGINA:03 etc.... por isso não pode ser fixo. Acho q agora eu expliquei melhor né, cara obrigado pela atenção, com certeza vc um dia passou por isso e sei que vc me entende... |
|
|
|
|
|
|
|
Postada em 08/05/2007 17:23 hs
Existe a possibilidade de dentro do texto de uma página existir a palavra "pagina"? |
|
|
|
Dário Cardoso
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/05/2007 17:26 hs
Não!!! porque em geral é numeros e códigos de transações etc., mas não tem, só tem no cabeçalho  |
|
|
|
|
|
Postada em 08/05/2007 17:39 hs
Vc pode mudar o código 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 InStr(1,texto, "PAGINA:" &Format(i, "00"),vbTextCompare) <> 0 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
Pronto. Não testei mas a idéia é: achar na linha o texto "PAGINA:01"... "PAGINA:02" etc e fazer a impressão... veja se dá certo at+ |
|
|
|
Dário Cardoso
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/05/2007 17:42 hs
vou tentar.... |
|
|
|
Dário Cardoso
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/05/2007 14:16 hs
Cara ficou beleza, mas só uma coisinha... Nos arquivos que são criados (file2) ele está gravando da linha que tem o nome PAGINA para cima. EX: na 1ª pagina no cabeçalho eu tenho assim: _____________________________________________ RELATORIO DE TRANSAÇÕES DATA DE MOVIMENTO tal/tal/tal PAGINA:01 _____________________________________________ Cód. transações autorização etc. etc.. 000001 CPMBH01 " " Daí ele grava no arquivo TESTE_00 só assim: _____________________________________________ RELATORIO DE TRANSAÇÕES ou seja da palavra PAGINA para cima e assim por diante, quando chega na ultima pagina simplismente ela não é gerado, pois ele pega da palavra PAGINA para cima, no caso o conteude que vem depois do cabeçalho ñ aparece na ultima página!!! ENTÃO PENSEI, SE ELE GRAVAR NOS ARQUIVOS FILE2 DA PALAVRA PAGINA PARA BAIXO, e não para cima, ACHO QUE FICARIA CERTO. O que eu faço  |
|
|
|
