INSERIR RODAPE EM PLANILHA VIA VBA

FILMAN 09/11/2011 15:11:32
#388815
Ok e essa imagem é de que tamanho
Largura x Altura
A impressão e no meio da folha
qual a sua configuração de página
PABLOMOREIRAGV 09/11/2011 15:15:10
#388817
O documento tem 8 páginas com 8 images cada. Não to entendendo, isso influi em alguma coisa? O problemas não está somente no código de impressão que postei?
FILMAN 09/11/2011 16:38:42
#388833
Como você esta chamando a impressão

posta ai pra ficar mais facil de te ajudar.

a sua impressão é chamada para cada uma das 8 página ou ela faz um loop nas oito.

posta o código de impressão.

Ah mais uma coisa as 8 páginas são fixas ou fexiveis é de acordo com o conteudo?
PABLOMOREIRAGV 09/11/2011 17:11:17
#388838
Segue arquivo para melhor entendimento.
FILMAN 09/11/2011 17:14:50
#388839
Suponha que você esta chamando assim

Do While Not rs.EOF
  
Printer.Print Tab(0); rs([Ô]nome[Ô]);
Printer.Print Tab(30); rs([Ô]endereço[Ô]);
Printer.Print Tab(60); rs([Ô]cidade[Ô]);
Printer.Print Tab(90); rs([Ô]estado[Ô]);
Printer.Print Tab(95); rs([Ô]cep[Ô])  
rs.MoveNext [ô]vai para o proximo registro

Loop


Então Faça assim e ve se da certo


Do While Not rs.EOF
  
If (Preenchido = False) then
    With ActiveSheet.PageSetup [ô] Insere rodapé na página
        .LeftHeader = [Ô][Ô]
        .CenterHeader = [Ô][Ô]
        .RightHeader = [Ô][Ô]
        .LeftFooter = [Ô]texto[Ô] [ô]Lado esquerdo com tamanho da fonte 08
        .CenterFooter = [Ô][Ô]
        .RightFooter = [Ô]&P de [Ô] & total [ô]Númeração de páginas
    End With
    Preenchido = True
End If

Printer.Print Tab(0); rs([Ô]nome[Ô]);
Printer.Print Tab(30); rs([Ô]endereço[Ô]);
Printer.Print Tab(60); rs([Ô]cidade[Ô]);
Printer.Print Tab(90); rs([Ô]estado[Ô]);
Printer.Print Tab(95); rs([Ô]cep[Ô])  
rs.MoveNext [ô]vai para o proximo registro

Loop
FILMAN 09/11/2011 17:18:12
#388840
Nao to conseguindo abrir seu anexo

manda no meu email

jfernando_filman@hotmail.com
FILMAN 09/11/2011 20:27:37
#388853
Tenta assim o processo ficou mais rapido

pelo menois aqui no meu PC
FILMAN 09/11/2011 22:02:12
#388863
Ve esse dei mais uma mudada
PABLOMOREIRAGV 10/11/2011 08:05:59
#388870
Acho que o problema ainda continua.....perceba que mesmo tendo o rodapé preenchido o código tá inserindo novamente. Para testar coloque uma imagem no primeiro image e a segunda no quinto image, e verá que ao imprimir ele demora um pouco. Acho que o que mudou mesmo é que ele inseria em todas as páginas antes de imprimir e agora inseri apenas na página que contém fotos. Até aí melhorou.
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar