JOÃO PAULO
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 11/04/2006 10:42 hs
Pessoal tenho uma Variavel chamada Observacao do tipo String, ela pode ter até 255 caracteres. Dim Observacao as String Observacao = txtOBS.text 'Texto com até 255 Até ai tudo bem agora eu tenho que quebrar este texto na hora que eu passo o Print, pois eu posso imprimir em cada linha 15 caracteres Se o texto conter "Entragar o serviço na rua Vilela de Castro, Nº 87-A - Centro." ele deve ser imprimido da seguinte forma: Entragar o serv iço na rua Vile la de Castro, N º 87-A - Centro ou seja quebrar a variavel de 15 em 15 caracteres para que eu possa imprimir. Alguém sabe como faço isso? |
|
|
|
|
|
|
|
Postada em 11/04/2006 11:04 hs
*************************************************************** Dim Observacao As String
Observacao = "Entregar o serviço na rua Vilela de Castro, Nº 87-A - Centro." For i = 1 To Len(Observacao)
If i Mod 15 = 0 Then
Observacao = Mid(Observacao, 1, i) & vbCrLf & Mid(Observacao, i + 1, Len(Observacao))
End If
Next *************************************************************** t+ |
|
|
|
JOÃO PAULO
não registrado
|
|
Postada em 11/04/2006 13:28 hs
valeu!! era isso mesmo q eu tava precisando, deu certo. Muito Obrigado. |
|
|
|
JOÃO PAULO
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/04/2006 09:36 hs
Usando este código tem como eu colocar o texto alinha do lado direito do formulário? Ex.: ======================================================== Nome: Observação: ======================================================== João Paulo Entragar o serv iço na rua Vile la de Castro, N º 87-A - Centro ------------------------------------------------------------------------ |
|
|
|
|
|
Postada em 12/04/2006 09:46 hs
|
|
|
|
JOÃO PAULO
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/04/2006 10:50 hs
Mesmo assim ainda não deu certo. Tem outra solução? |
|
|
|
