Página 1 de 1
Apanhando do Visualizar
Enviado: Outubro 29th, 2011, 7:31 am
por mariomatos
Saudações Amigos, gostaria de saber se alguém poderia me dar uma dica de como fazer para imprimir diretamente sem ter que abrir o formulário de visualizar, ir diretamente para impressão.
Fico grato desde já!!!!!
Re: Apanhando do Visualizar
Enviado: Outubro 31st, 2011, 3:32 pm
por Gustavo
Olá,
no relatório, copie o evento do botão Visualizar e cole no evento FormShow do mesmo
relatório.
Vai ficar assim:
procedure TFormRel_0026.FormShow(Sender: TObject);
Var
I: Integer;
begin
{05-Início do Bloco Xmaker. Modificações não serão preservadas}
LbTituloForm.Caption := 'Ficha de Orçamento';
Caption := 'Ficha de Orçamento';
{99-Final do Bloco Xmaker. Modificações não serão preservadas}
{06-Início do Bloco Xmaker. Modificações não serão preservadas}
DORCAMENT := TDORCAMENT.Create(Self);
DORCAMENT.OnCalcFields := CalculosDORCAMENT;
DORCAMENT.DataSource.OnDataChange := AtualizaDetalhe_DORCAMENT;
DITORC := TDITORC.Create(Self);
DITORC.OnCalcFields := CalculosDITORC;
DITORC.DataSource.OnDataChange := AtualizaDetalhe_DITORC;
QyRelatorio := DORCAMENT;
{99-Final do Bloco Xmaker. Modificações não serão preservadas}
BtnAjuda.Visible := False;
BtnFechar.Visible := False;
FormResize(Self);
frReport.OnUserFunction := FuncoesExtras; //==>inserir após essa linha do show do diálogo de impressão
//alteração inicio
BtnVisualizar.visible := false;
ConstroiSql;
InicializaVariaveis;
if QyRelatorio.Eof then
MessageDlg('Nenhum registro selecionado !',mtInformation,[mbOk],0)
else
frReport.ShowReport; // DesignReport -> Permite ao usuário final editar o Layout do Relatório
QyRelatorio.Close;
//alteração fim
end;
Assim, quando clicar no botão que chama o relatório, irá direto para a impressão.
Re: Apanhando do Visualizar
Enviado: Novembro 10th, 2011, 10:42 am
por ricardobhte
eu faço assim
if RadioGroup1.ItemIndex = 0 then // direta
if frReport.PrepareReport then
frReport.PrintPreparedReport('',1)
else // visualizar
frReport.showReport;
Re: Apanhando do Visualizar
Enviado: Novembro 10th, 2011, 1:56 pm
por mariomatos
Meus amigos venham neste momento agradecer atenção de ambos pela ajuda, realmente salvaram minha alma, porque estava louco com isto,desculpe-me a demora em responder, é que esta meio que ausente,mais estamos ai na ativa novamente fazendo o que sabemos fazer de melhor...programar..
Um Grande Abraço e Obrigado pela brilhantosa ajuda de vocês.
Grato
Mario