Datamax A-4310 Programmer's Manual page 173

docinfo.pDocName = "MyDoc"
docinfo.pOutputFile = vbNullString
docinfo.pDatatype = vbNullString
jobid = StartDocPrinter(hPrinter, 1, docinfo)
Call StartPagePrinter(hPrinter)
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
Class Series Programmer's Manual
Appendix B – Sample Programs
157