QUEBRAR PAGINA VIA CODIGO NO DATAREPORT CONCLUIDO

FERNANDOVB 18/11/2009 15:56:49
#328089

Boa tarde amigos do Fórum,

estou com um problema na geração de um relatório no DataReport, é o seguinte:

Eu tenho uma lista de alunos (Ex: 100 alunos), eu tenho um form onde o usuário pode distribuir esses nomes em salas (Ex: 5 salas = 20 alunos por sala), até aí blz, o problema é que preciso imprimir um relatório por sala.

SEGUE CÓDIGO:

For x = 0 To 9
If gQtClasses(x) <> 0 Then
If x = 0 Then
Set db = New ADODB.Connection
db.Execute [Ô]drop table listas_provas_[Ô] & x & [Ô][Ô]
vlSQL = [Ô][Ô]
vlSQL = [Ô]SELECT * INTO listas_provas_[Ô] & x & [Ô][Ô]
vlSQL = vlSQL & [Ô] FROM relsort [Ô]
vlSQL = vlSQL & [Ô]ORDER BY sort [Ô]
vlSQL = vlSQL & [Ô]LIMIT [Ô] & gQtClasses(x) & [Ô] OFFSET [Ô] & x & [Ô][Ô]
CNN.Execute vlSQL
Else
Set db = New ADODB.Connection
db.Execute [Ô]drop table listas_provas_[Ô] & x & [Ô][Ô]
vlSQL = [Ô][Ô]
vlSQL = [Ô]SELECT * INTO listas_provas_[Ô] & x & [Ô][Ô]
vlSQL = vlSQL & [Ô] FROM relsort [Ô]
vlSQL = vlSQL & [Ô]ORDER BY sort [Ô]
vlSQL = vlSQL & [Ô]LIMIT [Ô] & gQtClasses(x) & [Ô] OFFSET [Ô] & (gQtClasses(x) * (x)) & [Ô][Ô]
CNN.Execute vlSQL
End If
End If
Next x

Set rs = New ADODB.Recordset
vl_sLogoTipo = [Ô]logo[Ô] & tbPara!id & [Ô].jpg[Ô]

With rpt_PresAleatoria
.Caption = [Ô]Lista de Presença em Prova - [Ô] & vl_sNomeColegio
For x = 0 To 9
If gQtClasses(x) <> 0 Then
rs.Open [Ô]select * from listas_provas_[Ô] & x & [Ô] ORDER BY sort[Ô], CNN, adOpenForwardOnly, adLockReadOnly
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = rs
.Sections([Ô]Section4[Ô]).Controls.Item([Ô]lbl_ano[Ô]).Caption = gAnoAtivo
Set .Sections([Ô]Section4[Ô]).Controls.Item([Ô]img_logo[Ô]).Picture = LoadPicture(App.Path & [Ô]\logotipos\[Ô] & vl_sLogoTipo)
With .Sections([Ô]Section1[Ô]).Controls
.Item([Ô]Text1[Ô]).DataField = [Ô]sort[Ô]
.Item([Ô]Text2[Ô]).DataField = [Ô]nome[Ô]
.Item([Ô]Text3[Ô]).DataField = [Ô]classe[Ô]
End With
End If
Next x
.Refresh
.Show
End With


Tentei utilizar o comando ForcePageBreak, só que ou ele imprimi uma sala só, eu imprimi um nome em cada página!


help me!!!