Fórum Access Violation no Preview do quickReport #354093

procedure TForm38405.fraBotoesbtnImprimirClick(Sender: TObject); begin try prAbreQueryRelatorio; if Q_Relatorio.IsEmpty then begin fnMsg(msgNenhumRegSelecionado); Exit; end; // prExecutaImpressao(0, ScrollBox1, tabRelatorio, R_DescObtidos); prGraficos; prExecutaImpressao(1, ScrollBox2, tabGraficos, R_Graficos); prImprime; except fnMsg(msgErroProcessar); end; end; procedure TForm38405.prImprime; begin R_Graficos.Preview; end; procedure TForm38405.prExecutaImpressao(PreviewTag: integer; Scroll: TScrollBox; Tab: TTabSheet; Relatorio: TQuickRep); begin case PreviewTag of 0: begin PreviewRelatorio := TPreviewCustomizado.CreatePreview(Scroll); PreviewRelatorio.Parent := Scroll; PreviewRelatorio.prSetaConfig(Form38405, pcGeral, Tab, 2); PreviewRelatorio.prSetaBooleans(False, False, True); PreviewRelatorio.prConfigExportExcel(Q_Relatorio, ´Relatório de Descontos Obtidos´); PreviewRelatorio._pBExportExcel := True; PreviewRelatorio.qrRelatorio := R_DescObtidos; Tab.TabVisible := True; pcGeral.TabIndex := Tab.PageIndex; PreviewRelatorio.qrRelatorio.Preview; PreviewRelatorio.Free; end; else begin PreviewGraficos := TPreviewCustomizado.CreatePreview(nil); PreviewGraficos.Parent := Scroll; PreviewGraficos.prSetaConfig(Form38405, pcGeral, Tab, 0); PreviewGraficos.prSetaBooleans(False, False, True); PreviewGraficos.prConfigExportExcel(Q_Relatorio, ´Relatório de Descontos Obtidos´); PreviewGraficos._pBExportExcel := True; PreviewGraficos.qrRelatorio := R_Graficos; Tab.TabVisible := True; pcGeral.TabIndex := Tab.PageIndex; // PreviewGraficos.qrRelatorio.Preview; // PreviewGraficos.Free; end; end; end;