|
|
Postada em 12/11/2007 11:31 hs
Olá VBzadores!!! De boa né!  em... quase.. ah tá... é o vb.... rere Pois bem, é o seguinte: Estou imprimindo via PRINTER uma página que contem um campo OBSERVAÇÃO, daí o problema esse textBox_OBS é multiline e tem até 200 caracteres, quando imprimo com PRINTER logicamente os dados que contem nesse campo ultrapassam a margem direita da folha A4, ou seja, falta dados que não foram impressos. GOSTARIA DE SABER COMO FAÇO PARA GERENCIAR ISSO, COMO COLOCO UM LIMITE PARA ESSE LINHA E MANDAR ENTÃO O RESTANTE DOS DADOS PARA LINHA SEGUINTE??? Entenderam??? qq posta ai, desde ja agradeço 
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" 
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/11/2007 19:39 hs
Tenta assim Dim iTAM As Integer Dim Linha As Integer iTAM = Len(SeuTexto) ' se quiser imprimir 100 caracteres. iTAM = iNT((iTAM / 100) ) Linha = 1 For I = 1 To iTAM Printer.Print Tab(5) Mid(SeuTexto, Linha, 100) Linha = Linha + 100 Next I A idéia é esta, agora não testei, mas uso mais ou menos isto, aprimore para suas necessidades. vlu// |
|
|
|
Dário Cardoso
não registrado
|
|
Postada em 13/11/2007 07:07 hs
Olá LCRamos, blz! Olha antes qq coisa quero agradecer pela atenção!!!! tanks... SEU CODIGO É MUITO COM E FEZ COM QUE COLOCASE UM LIMITE, BLZ... AGORA COMO FAÇO PARA QUE O RESTANTE DO TEXTO SAIA NA PROXIMA LINHA??? Ex: linha 1 com 100 caracteres: blablalblablablablalblablalbalblalbalblalblalblablalblalb.... linha 2 com o que sobrou da linha 1: blablablablablafim |
|
|
|
Edson479
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/11/2007 14:53 hs
ver ser te achuda Printer.Print, " "; Left(Text2.Text, 37)
If Len(Text2.Text) > 37Then
Printer.Print, " "; Mid(Text2.Text, 38, 36) End If eu uso isto pra imprimi Cupom Fiscal de 40 via com impressora Epson 300 de 80 via
|
|
|
|
|
|
Postada em 16/11/2007 09:20 hs
Resolvido o problema, vejam codigo abaixo como ficou Dim iTAM As Integer
Dim Linha As Integer
iTAM = Len(Text_obs)
'###INICIO - Define a quantidade de caracteres por LINHA
iTAM = Int((iTAM / 50))
Linha = 1
For ii = 1 To iTAM
Printer.Print Tab(15); Mid(Text_obs, Linha, 50)
Linha = Linha + 50
Next ii
'###FIM - Define a quantidade de caracteres por LINHA |
|
|
|
