|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Imprimindo Arquivos Texto pelo VB
|
 |
|
|
|
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")
|
|
|
|
|
