Fórum QuickReport só imprime a 1ª Página #296875

// Etiquetas de Provas
if relatorio.itemindex=4 then
  begin
    if (cbimestre.ItemIndex<>-1) or (cperiodo.text<>´´) or (cturma.text<>´´) or (cdisciplina.text<>´´) then
      begin
        StatusBar1.Panels[3].Text:=´   Processando...´;
        _pesquisa.Repaint;
        VerificaCampos;
        sql:=´Select distinct(A.CodAlunoEscola), P.nome, E.tipoMatricula, D.nome as disciplina, D.Sigla, F.nome as professor from pessoa p, aluno a, disciplina d, funcionario f, profdisc pd, enturma e´;
        sql:=sql+´ where P.codPessoa=A.codPessoa and A.codAluno=E.codAluno and E.CodDisciplina=D.coddisciplina and D.Coddisciplina=PD.Coddisciplina and F.Codfuncionario=Pd.Codfuncionario and E.ano=PD.ano and E.turma =PD.turma and E.periodo=PD.periodo and E.codStatus=2´;
        sql:=sql+turma+disciplina+turno+´ and E.ano=´+ano+´ and E.periodo=´+semestre+´ and (E.tipoMatricula=101 or E.tipoMatricula=102 or E.tipoMatricula=103)order by 2´;
        dm.qetiprof.Close;
        dm.qetiprof.SQL.Clear;
        dm.qetiprof.sql.Add(sql);
        dm.qetiprof.open;
        _etiquetaprof:=T_etiquetaprof.Create(Application);
        _etiquetaprof.QR1.Preview;
        StatusBar1.Panels[3].Text:=´´;
      end
    else
      MessageBox(handle,´Os seguintes campos devem estar marcados para a impressão do Relatório de Assinaturas: Bimestre,Periodo,Turma,Disciplina.´,´Aviso do Sistema´,mb_ok+mb_iconExclamation);
  end;

procedure T_etiquetaprof.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
if length(_pesquisa.CTurma.Text)=7 then
  codigo.caption:=copy(_pesquisa.ano,3,2)+´/´+copy(_pesquisa.CTURMA.Text,1,2)+´.´+copy(_pesquisa.CTURMA.Text,5,2)+´.´+InttoStr(cont)
else
  codigo.caption:=copy(_pesquisa.ano,3,2)+´/´+copy(_pesquisa.CTURMA.Text,1,3)+´.´+copy(_pesquisa.CTURMA.Text,6,2)+´.´+InttoStr(cont);
bimestre.Caption:=_pesquisa.cbimestre.Text;
ano.caption:=_pesquisa.ano+´.´+_pesquisa.semestre;
sigla.Caption:=´(´+dm.qetiprofSigla.value+´)´;
cont:=cont+1;
end;