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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Imprimir Printer
Korn
Pontos: 2843
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
Pontos: 2843
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
Pontos: 2843
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
Pontos: 2843
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!!!
   
Página(s): 1/2      PRÓXIMA »


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