[Resolvido] relatorio

Bom dia

Tentei de diversas formas indicadas em alguns sites e não consegui.

Uso a sub abaixo para visualizar o relatório dos dados de uma tabela e o problema é que preciso que quando atingir um determinado numero de linhas ele inicie uma nova página. A cada 40 registros inicie nova página.

Private Sub CriaRelOS()
'-------------------------------
'Cabeçalho
'-------------------------------
Call Cabeçalho
'-------------------------------
'Continuação da Impressão - Dados da OS
'-------------------------------
picRel.FontBold = False
picRel.FontName = "Arial"
picRel.FontSize = "08"

 picRel.Print Tab(10); "Nome"; Tab(62); "Data"; Tab(74); "Produto"; Tab(100); "Motivo";
 picRel.Print Tab(0); String(268, "-")
 With rsRecepcao2
 Do Until .EOF = True
 picRel.Print Tab(10); !Nome;
 picRel.Print Tab(62); !Data;
 picRel.Print Tab(74); !Produto;
 picRel.Print Tab(100); !Motivo_Chamada;
 .MoveNext
 Loop
 End With

'-------------------------------
'Rodapé
'-------------------------------
picRel.Line ((picRel.ScaleWidth - 0), (picRel.ScaleHeight - 1070))-(0, (picRel.ScaleHeight - 1100)), 15, B
picRel.CurrentY = (picRel.ScaleHeight - 950)
picRel.Print Tab(30); "XXXXX Informatica - Cidade - DD Tel (XX) XXXXXXXX www.xxxxxinformatica.com.br"
picRel.Line ((picRel.ScaleWidth - 0), (picRel.ScaleHeight - 630))-(0, (picRel.ScaleHeight - 660)), 15, B
End Sub

se alguem puder ajudar, agradeço.

Nereu