Imprimir directamente

Imprimir directamente

Imprimir directamente : Multi-millones de consejos para hacer su vida mas facil.

Como imprimir directamente a la impresora.
Colaborador: JAVIER CELUCE

hace dos meses Gareet Wilson responder a esta pregunta y he probado de que el trabajo
...
La mejor manera que he encontrado es hacer lo siguiente, que utiliza el Windows
rutinas de impresion, sino que envia los datos directamente a la impresora (puede que tenga
a los cambios de las cosas, pero este es un buen resumen}. Me di cuenta de una
mucho de esto de los 'Tres Tecnicas de Impresion para la Consola de Windows 95
Aplicaciones', por David Tamashiro en la C/C del Usuario Diario, enero
1997.
**en Primer lugar, se incluyen los siguientes:
var
& nbsp & nbsp PrinterHandle:THandle {el identificador de la impresora}
utiliza WinSpool, Impresoras
tipo de TDocInfo1=lleno de registro {el reemplazo de DOC_INFO_1}
& nbsp & nbsp lpszDocName: PAnsiChar
& nbsp & nbsp lpszOutputFile: PAnsiChar
& nbsp & nbsp lpszDatatype: PAnsiChar
fin
**a Continuacion, abra una impresora de acuerdo a su nombre:
var
& nbsp & nbsp CTitle:array[0..31] of Char
& nbsp & nbsp CMode:array[0..4] of Char
& nbsp & nbsp DocInfo:TDocInfo1
begin
& nbsp & nbsp StrPLopy(CTitle, 'Mi Titulo') {configuracion de nuestro titulo buffer}
& nbsp & nbsp StrPCopy(CMode, 'RAW') {poner 'RAW' en nuestro modo de buffer}

& nbsp & nbsp FillChar(DocInfo, SizeOf(DocInfo), 0) {llenar el DocInfo estructura
con cero}
& nbsp & nbsp con DocInfo hacer
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp lpszDocName:=CTitle {establece el titulo de nuestro documento}
& nbsp & nbsp & nbsp & nbsp lpszOutputFile:=nil {especifica ningun archivo de salida}
& nbsp & nbsp & nbsp & nbsp lpszDatatype:=CMode {configurar el modo, que hemos especificado como
'RAW'}
& nbsp & nbsp final
& nbsp & nbsp OpenPrinter('Nombre de la Impresora Aqui', PrinterHandle, nil)
& nbsp & nbsp StartDocPrinter(PrinterHandle, 1, @DocInfo)
& nbsp & nbsp StartPagePrinter(PrinterHandle)

**Ahora, imprimir su texto:
var
& nbsp & nbsp Cuenta:DWord {el numero de bytes escritos}
begin
& nbsp & nbsp WritePrinter(PrinterHandle, PChar(printText), Longitud(printText),
Count)

**Cuando haya terminado de imprimir, ordenar las cosas:
& nbsp & nbsp EndPagePrinter(PrinterHandle) {final de la pagina}
& nbsp & nbsp EndDocPrinter(PrinterHandle) {final del documento}
& nbsp & nbsp si PrinterHandle<>0 then {si tenemos un controlador de impresora}
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp ClosePrinter(PrinterHandle) {cerrar la impresora}
& nbsp & nbsp & nbsp & nbsp PrinterHandle:=0 {mostrar que hemos cerrado la impresora}
& nbsp & nbsp final

creo que sobre la cubre. Espero que esto ayude.