Public Sub Prinbt_File(Txt$, PrnName$)
   Dim DI As DOC_INFO_1, buffer() As Byte, Written&, hPrn&
   Dim FinalText$, Addline$, Resp&
   Dim Pd As PRINTER_DEFAULTS
      
   DI.pDocName = "Relat�rio"
   DI.pOutputFile = vbNullString
   DI.pDatatype = "RAW"
   
   With Pd
      .pDatatype = 0&
      .pDevMode = 0&
      .DesiredAccess = PRINTER_ALL_ACCESS
   End With
   
   ' open
   Resp = OpenPrinter(PrnName, hPrn, Pd)
   Resp = StartDocPrinter(hPrn, 1, DI)
   Resp = StartPagePrinter(hPrn)
   
   ' print
   Open Txt For Input As #1
      Do While Not EOF(1)
         Line Input #1, Addline
         buffer = FinalText + vbCrLf
         Call WritePrinter(hPrn, buffer(1), UBound(buffer), Written)
     Loop
   Close #1
   
   ' Finish
   EndPagePrinter (hPrn)
   EndDocPrinter (hPrn)
   ClosePrinter (hPrn)
End Sub