Imprimer directement


Comment faire pour imprimer directement sur l'imprimante.
Auteur: JAVIER CELUCE

il y a deux mois Gareet Wilson répondre à cette question, et j'ai testé que le travail
...
La meilleure façon que j'ai trouvé est de faire le suivant, qui utilise le Windows
impression routines, mais envoie directement les données à l'imprimante (vous pouvez avoir
change les choses autour, mais c'est un bon contour}. J'ai trouvé un
beaucoup de ce de 'Trois Techniques d'Impression pour Windows 95 de la Console
Applications', par David Tamashiro dans le C/C de l'Utilisateur du Journal, janvier
1997.
**tout d'Abord, mentionnons les suivantes:
var
& nbsp & nbsp PrinterHandle:THandle {la poignée à l'imprimante}
utilise WinSpool, Imprimantes
type de TDocInfo1=paniers record {le remplacement de DOC_INFO_1}
& nbsp & nbsp lpszDocName: PAnsiChar
& nbsp & nbsp lpszOutputFile: PAnsiChar
& nbsp & nbsp lpszDatatype: PAnsiChar
fin
**Ensuite, ouvrez une imprimante en fonction de son nom:
var
& nbsp & nbsp CTitle:array[0..31] de Char
& nbsp & nbsp CMode:array[0..4] of Char
& nbsp & nbsp DocInfo:TDocInfo1
begin
& nbsp & nbsp StrPLopy(CTitle, 'Mon Titre') {installation de notre titre, tampon}
& nbsp & nbsp StrPCopy(CMode, 'RAW') {mettre en 'RAW' dans notre mode buffer}

& nbsp & nbsp FillChar(DocInfo, SizeOf(DocInfo), 0) {fill l'DocInfo structure
avec zéro}
& nbsp & nbsp avec DocInfo ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp lpszDocName:=CTitle {définir le titre de notre document}
& ! & ! & ! & nbsp lpszOutputFile:=nil {ne pas spécifier le fichier de sortie}
& ! & ! & ! & nbsp lpszDatatype:=CMode {jeu de la mode, que nous avons indiqué comme
'RAW'}
& nbsp & nbsp fin
& nbsp & nbsp OpenPrinter('Nom de l'Imprimante', PrinterHandle, nil)
& nbsp & nbsp StartDocPrinter(PrinterHandle, 1, @DocInfo)
& nbsp & nbsp StartPagePrinter(PrinterHandle)

**Maintenant, l'impression de votre texte:
var
& nbsp & nbsp Count:DWord {le nombre d'octets écrits}
begin
& nbsp & nbsp WritePrinter(PrinterHandle, PChar(printText), Longueur(printText),
Nombre)

**une fois l'impression terminée, les choses en ordre:
& nbsp & nbsp EndPagePrinter(PrinterHandle) {fin de page}
& nbsp & nbsp EndDocPrinter(PrinterHandle) de fin {document}
& nbsp & nbsp si PrinterHandle<>0 alors {si nous avons une imprimante poignée}
& nbsp & nbsp commencer
& ! & ! & ! & nbsp ClosePrinter(PrinterHandle) {fermer l'imprimante}
& ! & ! & ! & nbsp PrinterHandle:=0 {montrer que nous avons fermé l'imprimante}
& nbsp & nbsp fin

je pense que sur le couvre. Espérons que cette aide.









Imprimer directement


Imprimer directement : Plusieurs milliers de conseils pour vous faciliter la vie.


Comment faire pour imprimer directement sur l'imprimante.
Auteur: JAVIER CELUCE

il y a deux mois Gareet Wilson repondre a cette question, et j'ai teste que le travail
...
La meilleure façon que j'ai trouve est de faire le suivant, qui utilise le Windows
impression routines, mais envoie directement les donnees a l'imprimante (vous pouvez avoir
change les choses autour, mais c'est un bon contour}. J'ai trouve un
beaucoup de ce de 'Trois Techniques d'Impression pour Windows 95 de la Console
Applications', par David Tamashiro dans le C/C de l'Utilisateur du Journal, janvier
1997.
**tout d'Abord, mentionnons les suivantes:
var
& nbsp & nbsp PrinterHandle:THandle {la poignee a l'imprimante}
utilise WinSpool, Imprimantes
type de TDocInfo1=paniers record {le remplacement de DOC_INFO_1}
& nbsp & nbsp lpszDocName: PAnsiChar
& nbsp & nbsp lpszOutputFile: PAnsiChar
& nbsp & nbsp lpszDatatype: PAnsiChar
fin
**Ensuite, ouvrez une imprimante en fonction de son nom:
var
& nbsp & nbsp CTitle:array[0..31] de Char
& nbsp & nbsp CMode:array[0..4] of Char
& nbsp & nbsp DocInfo:TDocInfo1
begin
& nbsp & nbsp StrPLopy(CTitle, 'Mon Titre') {installation de notre titre, tampon}
& nbsp & nbsp StrPCopy(CMode, 'RAW') {mettre en 'RAW' dans notre mode buffer}

& nbsp & nbsp FillChar(DocInfo, SizeOf(DocInfo), 0) {fill l'DocInfo structure
avec zero}
& nbsp & nbsp avec DocInfo ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp lpszDocName:=CTitle {definir le titre de notre document}
& ! & ! & ! & nbsp lpszOutputFile:=nil {ne pas specifier le fichier de sortie}
& ! & ! & ! & nbsp lpszDatatype:=CMode {jeu de la mode, que nous avons indique comme
'RAW'}
& nbsp & nbsp fin
& nbsp & nbsp OpenPrinter('Nom de l'Imprimante', PrinterHandle, nil)
& nbsp & nbsp StartDocPrinter(PrinterHandle, 1, @DocInfo)
& nbsp & nbsp StartPagePrinter(PrinterHandle)

**Maintenant, l'impression de votre texte:
var
& nbsp & nbsp Count:DWord {le nombre d'octets ecrits}
begin
& nbsp & nbsp WritePrinter(PrinterHandle, PChar(printText), Longueur(printText),
Nombre)

**une fois l'impression terminee, les choses en ordre:
& nbsp & nbsp EndPagePrinter(PrinterHandle) {fin de page}
& nbsp & nbsp EndDocPrinter(PrinterHandle) de fin {document}
& nbsp & nbsp si PrinterHandle<>0 alors {si nous avons une imprimante poignee}
& nbsp & nbsp commencer
& ! & ! & ! & nbsp ClosePrinter(PrinterHandle) {fermer l'imprimante}
& ! & ! & ! & nbsp PrinterHandle:=0 {montrer que nous avons ferme l'imprimante}
& nbsp & nbsp fin

je pense que sur le couvre. Esperons que cette aide.


Imprimer directement

Imprimer directement : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation