Quickreport (preview e print)

25/06/2008

4

Bom dia pessoal, alguem poderia me ajudar, é o seguinte: criei um formulario para fazer selecao de informacoes antes de gerar o arquivo para impressao, nete form coloquei 2 botoes, 1 botao visualizar e outro imprimir, como faco para que se o usuario clicar em visualizar chamar o preview do quickreport isso caso queria so visualizar o relatorio e se o usuario clicar em imprimir o relatorio vai direto para impressora sem aparecer o preview.

Devo esta fazendo a chamada do form de relatorio errado, estou usando assim:

QRL_Extbanco := TQRL_Extbanco.Create(Self);

e neste form qrl_extbanco no on_create é que verifico se foi clicado no botao visualizar ou imprimir e chamo o qreport.preview ou qreport.print

Acho que nao seria bem assim que dever ser feito, por isso alguem poderia me dar uma luz, desde ja agradeco


Responder

Posts

25/06/2008

Altingon

Não entendi muito bom a sua pergunta...mas eu uso 2 botões um tem quickrep.print e outro quickrep.preview...simples assim....


  
      Try
         If (TRInventario  = Nil) Then
           TRInventario  := TTRInventario.Create(Self);
         TRInventario.QuickRep1.Print;
        Finally
          TRInventario.Release;
          TRInventario := nil;
        End;



Responder

25/06/2008

Ieustaquio

Não entendi muito bom a sua pergunta...mas eu uso 2 botões um tem quickrep.print e outro quickrep.preview...simples assim....
  
      Try
         If (TRInventario  = Nil) Then
           TRInventario  := TTRInventario.Create(Self);
         TRInventario.QuickRep1.Print;
        Finally
          TRInventario.Release;
          TRInventario := nil;
        End;



certo, esse codigo vc utiliza no botao para imprimir direto e no caso do botao visualizar vc utilizaria assim:

Try
If (TRInventario = Nil) Then
TRInventario := TTRInventario.Create(Self);
TRInventario.QuickRep1.Preview;
Finally
TRInventario.Release;
TRInventario := nil;
End;


Responder

25/06/2008

Altingon

Isso mesmo....era essa a sua duvida?


Responder