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

 

  Dicas

  Visual Basic    (Impressões/Impressoras)

Título da Dica:  Matando uma Impressao
Postada em 8/1/2004 por Ozzys            
    For i = 1 To 40
      Printer.CurrentX = 1440   ' Seta a Margem Esquerda.
      Printer.CurrentY = (i * 300)  
      Printer.Print "Essa e a linha " & Str$(i) & " do texto."
      On Error Resume Next   ' Trata os erros
      If i = 26 Then
         Printer.KillDoc   ' Termina o servico de impressao.
         Printer.EndDoc
         End
      End If
   Next i
 


CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página