USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Rodapé de Páginas - Usando o comando printer
Nobus_000
não registrado
Postada em 07/05/2004 10:21 hs   
Tenho uma sub que imprime uma lista de registros...
essa mesma sub conta 90 linhas, quando chega em 90 linhas ela já pula para a 2ª pagina e continua imprimindo o restante da lista de registros.
 
DUVIDA:
Como seria o codigo para criar um Rodapé como o nome da empresa em todas as paginas a serem impressas...
Obs: esse rodapé tem que ficar no espaço entre a linha 90 a o fim da pagina... mesmo que a lista seja menos que 90 linha o rodapé tem que ficar lá em baixo (no mesmo espaço se tivesse 90 linhas a lista).
 
Uso:
VB 6
Access 97
DAO 3.51
Tamanho do Papel A4
 
     
Vaughyman
RIO DE JANEIRO
RJ - BRASIL
Postada em 08/05/2004 10:08 hs            
Na sub que conta essas linha coloque:
if linha = 90 then
ImprimeRodape
else
for i=VariavelComALinhaAtual to 90
printer.print
next
ImprimeRodape
Endif
     
Nobus_000
não registrado
Postada em 09/05/2004 09:16 hs   
Vaughyman
O que é esse VariavelAComLinhaAtual ?
 
 
     
Vaughyman
RIO DE JANEIRO
RJ - BRASIL
Postada em 09/05/2004 11:26 hs            
No seu post existe uma frase assim: "essa mesma sub conta 90 linhas..."
suponho eu que vc está usando um contador de linha que por sua vez é uma variavel para armazenamento desse numero. Logo toda vez que vc for usar (não estou afirmando que vc esteja usando dessa maneir pois o codigo não foi postado) variavel=variavel + 1 para contar as linhas, vc deve introduzir o codigo que foi enviado.
Caso ainda tenha duvida, post o codigo da sua sub para que se faca uma melhor analise.
Abração
 

"IF FUNCIONOU = TRUE THEN Emoções

     BLOQUEIE O POST

ELSE Emoções

    POST NOVAMENTE INFORMANDO O QUE ACONTECEU

ENDIF Emoções

     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página