62886 ha scritto:
Ecco:
Private Sub Comando53_Click()
Dim Biker As Variant
For Each Biker In [Report_Registro Biker].Biker
Me.Filter = [Report_Registro Biker].Biker = Biker
Me.FilterOn = True
Me.Requery
Me.Print
Me.FilterOn = False
Next Biker
End Sub
Dal momento che questo codice non ha alcun senso tecnico comprensibile..., anzi è decisamente errato sotto qualsiasi aspetto, forse sarebbe bene capire cosa devi fare e da cosa partiamo...