Datamax-oneil Class Series Programmer’s Manual Manuel d'utilisateur Page 171

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 300
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 170
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
Next
End Sub
Private Sub lpt2_Click()
End Sub
Private Sub open_Click()
CommonDialog1.ShowOpen
loadfile = CommonDialog1.FileName
txtFile.Text = loadfile
Vue de la page 170
1 2 ... 166 167 168 169 170 171 172 173 174 175 176 ... 299 300

Commentaires sur ces manuels

Pas de commentaire