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.