Const GENERIC_READ = & H80000000Const GENERIC_WRITE = & H40000000Const OPEN_EXISTING = 3Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _ (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As IntPtr Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim iHandle As IntPtriHandle = CreateFile ( "LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0 , Open_EXISTING, 0, 0) IF (iHandle.Toint32 = -1) ThenMSGBOX ("No LPT1" or printer port is not LPT1 ") EXIT SUBELSEIF I = 0 THEN MSGBOX (" Printer Connection Success! ") DIM FS AS NEW FISTREAM iHandle, FileAccess.Readwrite) DIM SR AS New StreamReader (FS) 'Read Data DIM SW AS New StreamWriter (fs, system.text.encoding.default)' Write data SWRITELINE () end ifsw.close () end ifnextend iFend Sub end function
