Datamax-oneil DPL Programmer’s Manual Manuel d'utilisateur télécharger pdf (Page 170)

Appendix B – Sample Programs

162

Exit Sub

End If

‘ Open file.

f1 = FreeFile

Open loadfile For Binary As f1

‘ Open printer for printing

res& = OpenPrinter(SelPrinter, hPrinter, 0)

If res = 0 Then

MsgBox “Unable to open the printer”

Exit Sub

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

1 2 ... 165 166 167 168 169 170 171 172 173 174 175 ... 295 296

Commentaires sur ces manuels

Pas de commentaire

Datamax-oneil DPL Programmer’s Manual Manuel d'utilisateur Page 170

Commentaires sur ces manuels

Produits connexes et manuels pour Imprimeurs Datamax-oneil DPL Programmer’s Manual