Quickreport (preview e print)
25/06/2008
0
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
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
Ieustaquio
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)