|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Arquivos/Diretórios)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Imprimindo Arquivos Texto pelo VB
|
![](images/box01dirsup.gif) |
|
|
Postada em 8/10/2000 por Webmaster
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")
|
|
|
|
![](images/hosted.gif)
|