• Home
 · 
• Files/File Controls/Input/Output
 · 
• Print DOS mode printing(first printing) from VB

Print DOS mode printing(first printing) from VB

Print DOS mode printing(first printing) from VB

API Declarations


'useful for Dot matix printing



Rate Print DOS mode printing(first printing) from VB

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    PrintTheFile "c:\autoexec.bat"
end sub

Public Sub PrintTheFile(FileToPrint As String)
   Dim sTemp1 As String, sTemp2 As String, ii As Long, jj As Integer, i As Integer
   Close #1: Close #2
   Open FileToPrint For Binary As #1: Open Printer.Port For Binary As #2
   ii = LOF(1) \ 8192: jj = LOF(1) Mod 8192: sTemp2 = String(8192, " ")
   For i = 1 To ii: sTemp1 = sTemp2: Get #1, , sTemp1: Put #2, , sTemp1: Next
   sTemp1 = String(jj, " ")
   Get #1, , sTemp1: Put #2, , sTemp1
   Close #1: Close #2
End Sub