Fórum Imprimir Ultimo Registro #498439

Boa tarde,

Sou novato no delphi entao vim ate aqui pedir uma ajuda.

Como faco pra imprimir o ultimo registro, pois quando dou o comando imprimir ele so imprimi o primeiro registro preciso que ele imprima somente o ultimo.
Obrigado

qrduplicata.open;
while qrduplicata.recordcount <> 0 do qrduplicata.delete;
qrduplicata.Refresh;

qrreceber.first;
while not qrreceber.Eof do
begin
qrduplicata.insert;
qrduplicata.fieldbyname('emitente_fantasia').asstring := emitente_fantasia;
qrduplicata.fieldbyname('emitente_RAZAO').asstring := emitente_nome;
qrduplicata.fieldbyname('emitente_cnpj').asstring := emitente_cnpj;

qrduplicata.fieldbyname('duplicata_numero').asstring := qrreceber.fieldbyname('COD_CUPOM').asstring;
qrduplicata.fieldbyname('duplicata_valor').asstring := formatfloat('###,###,##0.00',qrreceber.fieldbyname('VALOR').asfloat);
qrduplicata.fieldbyname('data_vencimento').asstring := qrreceber.fieldbyname('vencimento').asstring;
qrduplicata.fieldbyname('data_emissao').asstring := qrreceber.fieldbyname('data').asstring;
qrduplicata.fieldbyname('sacado_nome').asstring := qrcliente.fieldbyname('nome').asstring;
qrduplicata.fieldbyname('sacado_endereco').asstring := qrcliente.fieldbyname('endereco').asstring + ' '+qrcliente.fieldbyname('bairro').asstring;
qrduplicata.fieldbyname('sacado_municipio').asstring := qrcliente.fieldbyname('cidade').asstring;
qrduplicata.fieldbyname('sacado_uf').asstring := qrcliente.fieldbyname('uf').asstring;
qrduplicata.fieldbyname('sacado_cep').asstring := qrcliente.fieldbyname('cep').asstring;
qrduplicata.fieldbyname('sacado_cpf').asstring := qrcliente.fieldbyname('cpf').asstring;
qrduplicata.fieldbyname('sacado_rg').asstring := qrcliente.fieldbyname('rg').asstring;
qrduplicata.fieldbyname('sacado_praca').asstring := emitente_cidade;

qrreceber.next;
end;
qrduplicata.SortOnFields('duplicata_numero');
frxPromissoria.LoadFromFile(ExtractFilePath(Application.ExeName) + '\relatorios\promissoria.fr3');
frxPromissoria.ShowReport;

end;
end;