Fórum Componente para Impressão para Matricial/Laser/Jato de Tinta #534543

Possuo um sistema Erp feito em Delphi 5 e estou convertendo o mesmo para Delphi Xe7,como o sistema é muito grande mais de 5000 fontes, trabalho e que não falta. Dentre os componentes tem o de impressão que é próprio, o qual se imprime feito no clipper, Ex de impressão:

with QQuery,Rel do
begin
fabricante := 0;
while not EOF do
begin
if Quebra.Checked and
(fabricante <> QQueryFABRICANTE.AsInteger) then
begin
SayN(NumLin+2,0,QQueryNOME.AsString);
fabricante := QQueryFABRICANTE.AsInteger;
Say(NumLin+1,0,' ');
end;
Say(NumLin+1,0,FormatNumber(QQueryPRODUTO.AsFloat,6,0,'0'));
Say(NumLin, 8,QQueryNOMEPROD.AsString);
Say(NumLin, 49,copy(QQueryFANTASIA.AsString,1,8));
Say(NumLin, 58,FormatNumber(QQueryQUANTIDADE.AsFloat, 8,0,' '));
Say(NumLin, 70,FormatNumber(QQueryPRECO.AsFloat, 5,2,' '));
Next;
end;
Say(NumLin+1,0,Replicate('-',132));
Say(NumLin+1,0,'Total de Itens : '+FormatNumber(QQuery.RecordCount,4,0,' ',true));
end;

O mesmo possui tela de seleção da Impressora, Preview da impressão e % de impressão. Preciso de alguém com experiência em Delphi xe7 para faze-lo, deixo ficar com a cópia desse componente como pagamento da conversão. Se for de recife dependendo podemos até conversar sobre as futuras comercialização. Contato através do email lqssql@hotmail.com.