impresora ticket

[pacogarcia]

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.