Foros Club Delphi - impresora ticket

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - impresora ticket (https://www.clubdelphi.com/foros/showthread.php?t=16107)

impresora ticket

hola a todos.

El problema que tengo es el siguiente. Tenia instalado en todos los ordenadores de una oficina el window'98 e imprimía en una impresora de ticket (generico / solo texto) con el printer.Canvas.TextOut sin ningun problema. Cuando me dio por instalar el windows xp en algun ordenador, en estos, imprimia todo en la misma linea, no avanzaba el carro. La solucion que me dieron fue imprimir directamente en el puerto com1:

AssignFile(F,'COM1');
Rewrite(F);
writeln(F,' hola ');

Con esto ya imprimia bien en los ordenadores con windows XP, pero ahora en los que tienes el windows 98 me imprime:

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ
ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ
ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ
ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ

resumiendo, hay alguna forma de imprimir indistintamente del sistema operativo?

Gracias.

Imprimir en impresora matricial

Yo uso el componente TRawPrint, creo que estará en el club, y me va bien tanto en W95, W98, XP, 2000 y NT, sin problemas.

Saludos.

no encuentro nada sobre el trawprint, me podrias decir donde puedo encontrar algo?

Gracias.

no encuentro nada sobre el componente trawprint, podrias informarme donde puedo encontrar algo.

Muchas gracias.

Cita:

Empezado por Hugo

Yo uso el componente TRawPrint, creo que estará en el club, y me va bien tanto en W95, W98, XP, 2000 y NT, sin problemas.

Saludos.

Hola,
he encontrado ese componente en Torry:
http://www.torry.net/vcl/print/printers/bhrawprint.zip

Creo que este hilo está repetido,
http://www.clubdelphi.com/foros/showthread.php?t=16156

Salu2.

Hola, yo uso la impresora generica/solo texto y este procedimiento y me funciona tanto en Win98, Win2000 and WinXP

Código:

procedure DirectPrint( s : string );

var

        PTBlock : TPassThroughData;

begin

        PTBlock.nLen := Length( s );

        StrPCopy( @PTBlock.Data, s );

        Escape( printer.handle, PASSTHROUGH, 0, @PTBlock, nil );

end;

Saludos.

Q unidad hay q incluir para q funcinoe el TPassThroughData????