|
|
Postada em 25/03/2006 15:17 hs
pessoal uso este comando para imprimir em 40 caracters, Print #1, IIf((Len(Texto) > 40), Left(Texto, 40) & vbCrLf & Mid(Texto, 41), Texto)
mais quando o texto é mais de 100 por exemplo ele só quebra a primeira linha em 40 as demais nao.. o que esta de errado em? |
|
|
|
|
|
|
|
Postada em 25/03/2006 16:41 hs
Print #1, IIf((Len(Texto) > 40), Left(Texto, 40) & vbCrLf & Mid(Texto, 41,40) & vbCrLf & Mid(Texto,80,40), Texto) Assim vai imprimir 3 linhas, voce precisa usar o Len para saber o tamanho do texto. por que voce não usa o (If - End If) iTAMANHO As Integer iTAMANHO = Len(Texto) Print #1 Left(Texto,40) If iTAMANHO>40 Then Print #1 Mid(Texto, 41,40) End If If iTAMANHO>80 Then repete até o tamanho maximo do texto End If
Mais prático.
vlu// |
|
|
|
|
|
Postada em 26/03/2006 11:21 hs
Dim i As Integer For i = 1 To Len(Texto) Print #1, Mid(Texto, i, 1) If i \ 40 = 0 Then Print #1, vbCrLf Next i Isso resolve... t+
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 27/03/2006 14:27 hs
amigo nenhum dos dois funcionou o do LCRamos,
só imprimi 2 linhas e eliezer vai repetindo as linha, o meu texto que mais ou memos 1500 caracteres é um contrato e tem que ser impresso em bobina de 40 colunas... favor será que tem outro exemplo. |
|
|
|
|
|
Postada em 27/03/2006 19:06 hs
peesoal, isso é importante, será tem uma solucao |
|
|
|
|
|
Postada em 28/03/2006 09:41 hs
Funciona sim. Testei aki... ve se vc copiou certo... qq coisa, manda o trecho de codigo pra mim q eu monto a rotina pra imprimir...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
