Datamax-oneil Class Series Programmer’s Manual Instrukcja Użytkownika Pobierz pdf (Strona 171)

Appendix B – Sample Programs

Class Series Programmer’s Manual 157

End If

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

End Sub

Private Sub lpt2_Click()

End Sub

Private Sub open_Click()

CommonDialog1.ShowOpen

loadfile = CommonDialog1.FileName

txtFile.Text = loadfile

1 2 ... 166 167 168 169 170 171 172 173 174 175 176 ... 299 300

Komentarze do niniejszej Instrukcji

Brak uwag

Datamax-oneil Class Series Programmer’s Manual Instrukcja Użytkownika Strona 171

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Drukarki Datamax-oneil Class Series Programmer’s Manual