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
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