Crystal Report - No imprime ultimo registro

Amplio el mensaje anterior. Con el codigo que acompaño trato se sacar un informe, la primera vez funciona bien, cuando cierro el formulario y lo vuelvo a lanzar, el ultimo registro no lo imprime, desde el entorno crystal si lo hace bien, y en la base de datos estan todos.

Geneinfo.DiscardSavedData = True
Geneinfo.Destination = crptToWindow
Geneinfo.WindowState = crptMaximized
Geneinfo.ReportFileName = camino & "reciboA4.rpt"
r =Geneinfo.PrintReport
Printer.EndDoc