Fórum Como imprimir somente 1 registro? #132596

Se vc usar Query para cadastrar basta vc dar um select com o proprio codigo, mandar imprimir e depois dar um select de novo para pegar todos .. tipo assim em um botão

var
varcod:integer;
begin
varcod:=QueryCODIGO.asinteger;
with Query do
begin
close;
sQL.clear;
SQL.add(´select * fromTABELA where CODIGO=:PCOD´);
parambyname(´PCOD´).asinteger:=varcod;
open;
end;
Quickrep1.preview;//ligado a query
with Query do
begin
close;
sQL.clear;
SQL.add(´select * fromTABELA´);
open;
end;

e se usar table

varcod:=TableCODIGO.asinteger;
with Query do
begin
close;
sQL.clear;
SQL.add(´select * fromTABELA where CODIGO=:PCOD´);
parambyname(´PCOD´).asinteger:=varcod;
open;
end;
Quickrep1.preview;//ligado a Query

Cara eu fiz isso na pressa, mais é mais ou menos assim, acho q deu pra sacar a idéia..

falow

Olá,

De onde vc retira os dados que vão para o Qreport ? Tabelas, Querys ? se forem tabelas, vc pode usar um filtro e se forem querys vc terá que especificar na própria query.
o filtro é mais ou menos assim:

begin
Tabela.Filtered := True;
Tabela.Filter:= (´[Codigo] = ´ + InttoStr(Codigo_Procurado);
Relatório.Preview; ou Relatório.Print;
end;

:D

Caro Consorte,

Simplesmente não defina nada na propriedade DataSource ou DataSet do seu report.


Alexandre Mello
afmello@codesa.com.br