by Pradyumna Kumar Jena (4 Submissions)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 17th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Print DOS mode printing(first printing) from VB
API Declarations
'useful for Dot matix printing
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