Apanhando do Visualizar

[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á!!!!!

[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.

[ricardobhte]

eu faço assim


if RadioGroup1.ItemIndex = 0 then // direta
if frReport.PrepareReport then
frReport.PrintPreparedReport('',1)
else // visualizar
frReport.showReport;

[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