Honeywell E-Class Series - Page 314

Call WritePrinter(hPrinter, ByVal printdata$, Len(printdata$), written)
While Not EOF(1)
Get #f1, , ch
printdata$ = ch
Call WritePrinter(hPrinter, ByVal printdata$, Len(printdata$), written)
Wend
Call EndPagePrinter(hPrinter)
Call EndDocPrinter(hPrinter)
Call ClosePrinter(hPrinter) ‘ Close when done
‘ Close file
Close #1
MsgBox “File sent to print spooler.”, vbExclamation
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
Dim X As Printer
‘ search for printer queue name / driver name
For Each X In Printers
If X.Port = “LPT1:” Then ‘printer found
‘ Set printer as system default.
SelPrinter = X.DeviceName
Exit For
End If
Next
End Sub
Private Sub lpt2_Click()
End Sub
Private Sub open_Click()
CommonDialog1.ShowOpen
loadfile = CommonDialog1.FileName
txtFile.Text = loadfile
End Sub
Private Sub Printer_Click()
CommonDialog1.ShowPrinter
End Sub
This syntax will create the following form:
294
DPLCommand Reference