Korn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/05/2005 13:25 hs
OPa pessoal eu tenho esse codigo pra imprimir e gostaria de saber se teria como quando o txt fosse mutiline os dados desse txt mudasse de linha , porq os dados se extenten pela folha e quando a largura da folha acaba ele naun muda de linha, obrigado Dim PaginaInicial, Paginafinal, numerodecopias, i CommonDialog1.CancelError = True Dim sql As String On Error GoTo imperro 'mostra a janela para impressora CommonDialog1.ShowPrinter 'Captura os valores definidos pelo usuário na janela PaginaInicial = CommonDialog1.FromPage Paginafinal = CommonDialog1.ToPage numerodecopias = CommonDialog1.Copies For i = 1 To numerodecopias Printer.Print MsgBox "Os dados foram enviados para a impressora ... ! ", vbInformation Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8 Printer.Print Tab(0); Format(Now, "dd/mm/yy"); Space(2); Printer.Print Format(Now, "dddd"); Printer.FontName = "Courier" Printer.FontSize = 10 Printer.Print Tab(5); "AREAS --------------------------------" Printer.Print Printer.Print Tab(5); "Codigo "; Tab(5); txtcod.Text Printer.Print Tab(5); "CodigoImo "; Tab(5); txtcodimo.Text Printer.Print Tab(5); "Descricao "; Tab(5); txtdesc.Text Printer.Print Tab(5); "Lotes "; Tab(5); txtlote.Text
Next ' acaba aki Printer.EndDoc Exit Sub imperro: MsgBox "Impressora não esta pronta ou está com problemas , Verifique !!!", vbInformation Printer.KillDoc Exit Sub
Jesus Cristo é O Senhor!!!
|
|
|
|
Jayme
|
SÃO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/05/2005 18:43 hs
Dê uma olhada neste tópico, se não resolver vamos partir para outra solução: Jayme
|
|
|
Korn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/05/2005 20:05 hs
opa parece q esse codigo ta cortando a frase no meio irmao Dim Variavel As String Variavel = rsarea!Obs ' suponhamos que a variavel tem 80 caracteres If Len(Variavel) > 90 Then Printer.Print Mid(Variavel, 1, 90) Printer.Print Mid(Variavel, 91, 20) Else Printer.Print Variavel End If
Jesus Cristo é O Senhor!!!
|
|
|
Korn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/05/2005 20:20 hs
onde eu delimito o tamnho total do texto Jayme ? o tamanho total da linha? por q tipo naun esta quebrando a linha sozinho desse jeito ve so , ap primeira linha come text e a segunda vai embora e naun para mais , nao quebra , mas o codigo é bom axo q eu naun vi a logica , ode ajudar por favor Dim Variavel As String Variavel = rsarea!Obs ' suponhamos que a variavel tem 80 caracteres If Len(Variavel) > 90 Then Printer.Print Mid(Variavel, 1, 90) Printer.Print Mid(Variavel, 91, 2000) Else Printer.Print Variavel End If
Jesus Cristo é O Senhor!!!
|
|
|
Jayme
|
SÃO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/05/2005 11:48 hs
Caso não conhecemos o tamanho do campo, podemos fazer assim: Dim i, j, k As Integer Dim Variavel As String Variavel = RSarea!Obs If Len(Variavel) > 90 Then i = Variavel / 90 ' descobre o número de linhas If i - Int(i) <> 0 Then ' seo o resto da divisão for <> 0, soma 1 i = Int(i) + 1 End If k = 1 For j = 1 To i Printer.Print Mid(Variavel, k, 90) k = k + 90 Next Else Printer.Print Variavel End If
Jayme
|
|
|
Korn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/05/2005 12:46 hs
deu erro de type mysmatch i = Variavel / 90
Jesus Cristo é O Senhor!!!
|
|
|