Insira um Botão(command1) e uma caixa de texto(text1.text) no seu formulário:
dê um clique duplo sobre o botão e insira o código abaixo:
Dim
bRet As Boolean
bRet = ImprimeArq(Text1.Text) 'caminho do arquivo
Crie um módulo e insira o código abaixo nele:
Public
Function ImprimeArq(ByVal sArq As String) As _
Boolean
On Error Resume Next
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
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco
