Setup FortesReport
Preciso de uma impressão direta, alguém sabe como desabilitar a opção de setup antes da impressão?
Rafaela
Curtidas 0
Respostas
Raimundo Pereira
04/09/2016
if dm.Tabela.RecordCount=0 then
begin
ShowMessage('Acesso negado - Nenhum registro encontrado');
end
else
begin
if CBX_PRINTER.Items.Count>0 then
begin
rel.PrintOptions.Printer:=CBX_PRINTER.Text;
end
else
begin
rel.PrintOptions.Printer:='Default';
end;
REL.PrepareReport();
//REL.ShowReport();// Mostra o relatório
//rel.Print; //Imprime direto
end;
begin
ShowMessage('Acesso negado - Nenhum registro encontrado');
end
else
begin
if CBX_PRINTER.Items.Count>0 then
begin
rel.PrintOptions.Printer:=CBX_PRINTER.Text;
end
else
begin
rel.PrintOptions.Printer:='Default';
end;
REL.PrepareReport();
//REL.ShowReport();// Mostra o relatório
//rel.Print; //Imprime direto
end;
GOSTEI 0