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

 

  Dicas

  Visual Basic    (Arquivos/Diretórios)

Título da Dica:  Imprimindo Arquivos Texto pelo VB
Postada em 8/10/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
O modo mais fácil de se imprimir um arquivo texto é este:

'Num módulo:
Public Function ImprimeArq(ByVal sArq As String) As _
       Boolean
  Dim lArq As Long
  Dim sTexto As String
  If Dir$(sArq) = "" Then
    'O arquivo não existe
    ImprimeArq = False
    Exit Function
  End If
  iArq = FreeFile()
  Open sArq For Binary Access Read As iArq
  sTexto = Space$(LOF(iArq))
  Get #iArq, , sTexto
  Close iArq
  Printer.Print sTexto
  Printer.EndDoc
  ImprimeArq = True
End Function

'Aí, chame-a assim:
Dim bRet As Boolean
bRet = ImprimeArq("C:\Caminho\Do\Arq\NomeDoArq.TXT")
 


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