Nel codice manca solo il controllo x gestire il caso in cui il # di record sia <= al # di record visualizzabili in una sola pagina del report. Ti invio 1 msg privato con la foto del report. CIAO

************************************************** ********
Private Sub Report_Open(Cancel As Integer)
Dim numrec As Integer

numrec = contarecord()
numpag = (numrec / 15) + 1

End Sub
************************************************** ********
Private Sub Report_Page()
Dim obj As AccessObject, ctr As Control

Me.DrawWidth = 2
Me.Line (8, 4250)-(10, 11280)
Me.Line (3260, 4680)-(3260, 11280)
Me.Line (4605, 4680)-(4605, 11290)
Me.Line (5870, 4680)-(5870, 11290)
Me.Line (6480, 4680)-(6480, 11280)
Me.Line (7170, 4680)-(7170, 11280)
Me.Line (8510, 4680)-(8510, 11290)
Me.Line (10150, 4670)-(10150, 11290)

End Sub

************************************************** *************
Private Sub SezionePièDiPaginaPagina_Format(Cancel As Integer, FormatCount As Integer)

MsgBox "pagina del report : " & Me.Page
If (Me.Page = numpag) Then
MsgBox "Valore di vettore: " & Me.Vettore & ""

Me.Vettore.Visible = False
End If
End Sub