Cetak Ke Printer Via LPT Port Menggunakan VB6

Di bawah ini merupakan contoh cara mencetak ke printer via LPT Port menggunakan Visual Basic 6 - Adapun kodenya adalah sebagai berikut:

Public Function PrintToLPTPort(ByVal port As String, ByVal text As String) As Boolean 
On Error GoTo ErrHandler 
     Dim l As Long 
     l = FreeFile
     Open port For Output As #l
         Print #F, text 
     Close #l 
     PrintToLPTPort = True 
    Exit Function 
ErrHandler: 
     PrintToLPTPort = False 
End Function 

Contoh penggunaan cetak ke printer via LPT Port:

Private Sub Command1_Click() 
    PrintToLPTPort "LPT1", "Test Print" 
End Sub