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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Imprimir Printer
Jayme
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 11/05/2005 13:38 hs            
i = Len(Variavel) / 90
 
Jayme
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 11/05/2005 14:14 hs            
aa funcionou Jayme valew , mas so confirma , esse codigo naun teria como implementar pra deixar mais de um txt multiline naun ne?

Jesus Cristo é O Senhor!!!
     
Jayme
não registrado
ENUNCIADA !
Postada em 11/05/2005 15:19 hs   
Este código pode ser melhoarado;
 
Devemos incrementar para separar corretamente as sílabas no final da linha.
 
Uso a função abaixo para remover caracteres estranhos do texto, por exemplo o  Enter no final da linha ou em qualquer posição.  
 
Variavel = TextoLimpo(rsarea!Obs)
 
Public Function TextoLimpo(Texto As String) As String
  On Error Resume Next
  Dim x  As Integer
  Dim Linha As String
  For x = 1 To Len(Trim(Texto))
    If Mid(Texto, x, 1) = vbCrLf Or _
       Mid(Texto, x, 1) = vbCr Or _
       Mid(Texto, x, 1) = vbLf Or _
       Mid(Texto, x, 1) = vbNewLine Or _
       Mid(Texto, x, 1) = vbNullChar Or _
       Mid(Texto, x, 1) = vbNullString Or _
       Mid(Texto, x, 1) = vbObjectError Or _
       Mid(Texto, x, 1) = vbTab Or _
       Mid(Texto, x, 1) = vbBack Or _
       Mid(Texto, x, 1) = vbBack Or _
       Mid(Texto, x, 1) = vbFormFeed Or _
       Mid(Texto, x, 1) = vbVerticalTab Then
       Linha = Linha & " "
       x = x + 1
       Linha = Linha & ""
    Else
       Linha = Linha & Mid(Texto, x, 1)
    End If
  Next
  TiraEnter = Linha
End Function
Abs,
 
Jayme
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 11/05/2005 18:16 hs            
Ok mas esse alnce ai naun faz tipo colocar mais um campo imprimindo com quebra de linha ne?

Jesus Cristo é O Senhor!!!
     
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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