Thursday, December 23, 2010

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