Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

VB and PCL

Status
Not open for further replies.

JPBURBE

Programmer
Jun 12, 2001
37
0
0
CA
How can i retrieve the data that is sent back from the following?


Private Sub Command1_Click()

Dim fnum As Integer, s As String, t As String
fnum = FreeFile

Open "lpt1" For Binary As #fnum
s = Chr$(27) & "%-12345X@PJL DINQUIRE RESOLUTION " & Chr$(27) & "%-12345X"
Put #fnum, , s
Close #fnum


fnum = FreeFile
Open "lpt1" For Output As #fnum
Print #fnum, , s
Close #fnum



End Sub

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top