Ah, tá... agora entendi.
Realmente falta no QuickReport eventos do tipo OnRender, já que o OnPrint
refere-se ao "desenho" do relatório e não ao envio do mesmo para a
impressora.
Para saber quando o relatório está sendo enviado para a impressora ou para a
tela de visualização, o truque é ler a propriedade Destination da QRPrinter
usada pelo relatório, como mostrado abaixo:
|procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var
PrintReport: Boolean);|
|begin
| if QuickRep1.QRPrinter.Destination = qrdPrinter then
| ShowMessage('Imprimindo!')
| else
| ShowMessage('Visualizando!');
|end;
Para isso vc tb vai precisar incluir a unit QRPrntr na clausula uses.
Em 6 de abril de 2010 11:02, Marcio <mtenre...@unimar.br> escreveu:
>
>
> Eu uso ele sim. Mas o que eu tenho problema é que o evento Before Print e
> After Print é disparado mesmo quando dou um preview. E queria que fosse
> disparado somente quando desse o print... Eu mostro o relatorio para o o
> usuario e so gravo determinada situacao se ele efetivar a impressão.
>
>
>
> -------Mensagem original-------
>
> De: Ricardo Augusto
> Data: 04/06/10 09:32:36
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Quickreport - Saber se é preview ou print do
> Relatorio
>
> Já tentou usar os eventos OnPreview e AfterPreview do TQuickRep?
>
> Em 6 de abril de 2010 08:27, Marcio
> <mtenre...@unimar.br<mtenreiro%40unimar.br>>
> escreveu:
>
> >
> >
> > Ola, estou tendo o seguinte problema com o Quick:
> >
> > Preciso realizar uma determinada operação somente se for dado o print do
> > relatório e não o preview do mesmo. Acontece que em ambas as situações
> ele
> > passa pelos eventos after/before print do componente.
> >
> > Alguem sabe como posso fazer para descobrir se a operação é de Preview ou
>
> > Print do relatorio?
> >
> > Obrigado
> >
> > Márcio
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
>
> --
> _____________________________________
> Ricardo Augusto
>
>
> "Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão
> completamente seguros e os inteligentes cheios de dúvidas" (Bertrand
> Russel)
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------------------------------
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
_____________________________________
Ricardo Augusto
"Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão
completamente seguros e os inteligentes cheios de dúvidas" (Bertrand Russel)
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
