PDA

Ver la Versión Completa : impresora ticket


rebollo75
16-11-2004, 13:17:00
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.

Hugo
16-11-2004, 13:49:17
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.

rebollo75
16-11-2004, 20:17:24
no encuentro nada sobre el trawprint, me podrias decir donde puedo encontrar algo?

Gracias.

rebollo75
16-11-2004, 20:18:24
no encuentro nada sobre el componente trawprint, podrias informarme donde puedo encontrar algo.

Muchas gracias.

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.

defcon1_es
23-11-2004, 18:10:47
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.

pacogarcia
25-11-2004, 09:43:51
Hola, yo uso la impresora generica/solo texto y este procedimiento y me funciona tanto en Win98, Win2000 and WinXP


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.

AFilth
10-02-2006, 09:24:28
Q unidad hay q incluir para q funcinoe el TPassThroughData????