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