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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Alinhar Números com Printer
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
Postada em 14/07/2004 17:44 hs            
Olá galera tudo legal?
 
Alguém pode me dar uma dica de Como faço para alinhar valores a direita com o famigerado objeto Printer.print?
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 14/07/2004 18:19 hs            
Printer.CurrentX = PosicaoFinal - Printer.TextWidth(CStr(Numero))
Printer.Print Numero
 
Onde PosicaoFinal é a coordenada à direita dos números, onde você quer que fiquem todos alinhados, e Numero é o seu valor. Se a variavel for String, não precisa usar o CStr().
 
Flw!
 
Elieser Topassi
     
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
Postada em 15/07/2004 08:19 hs            
Valeu Elieser!
 
"Vô dá umas testada nesse baguio"
 
Obrigado e se precisar estamos por ai.
     
jvlsm
SANTA MARIA
RS - BRASIL
Postada em 15/07/2004 09:11 hs            
Caro Colega,
 
Estas são as funções para alinhar: esquerda, centro e direita:
 
Public Sub AlignLeft(ByVal strText As String)
      Printer.CurrentX = Printer.CurrentX + 2
End Sub
-----------------------------------------------------------------------------
Public Sub AlignCenter(ByVal strText As String)
      Printer.CurrentX = ((Printer.ScaleWidth - Printer.TextWidth(strText)) / 2)
End Sub
-----------------------------------------------------------------------------
Public Sub AlignRight(ByVal strText As String)
      Printer.CurrentX = Printer.ScaleWidth - 2
End Sub
 
falow!

Juliano V. Londero
jvlsm@terra.com.br
     
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
Postada em 15/07/2004 15:07 hs            
Valeu!!!!!!
     
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
Postada em 15/07/2004 15:49 hs            
Valeu a boa vontade rapaziada com ajuda de vcs matei dois coelhos
com uma pauldada só.
Funfou direitinho!!!!!!!
 
Se precisarem de mim e só avisar.
 
Um Abraço
 
Keyo Voigt - Curitiba/Pr
 
     
Página(s): 1/1    

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