rappport udskriv

hej !
jeg har et problem , denne kode skulle meget gerne køre  1. del af koden første gang når man viser rapporten og anden gang resten når man udskriver men den køre kun en gang ?? er der nogen der kan fortælle mig hvad der er galt.



Private Sub Report_Page()
If bolstatus = False Then
    'Så er det første gang proceduren køres igennem
    'Den skal derfor bare registrere at den har kørt og så ellers afbryde

    bolstatus = True
    Exit Sub

Else
    'Så er det anden gang proceduren køres
    'udfør derfor det der skal laves

   
    Dim dbs As Database
    Dim rst As DAO.Recordset
 
   
    Set dbs = CurrentDb
  ' Set rst = dbs.OpenRecordset("Select * from Testpersoner_Stamdata where TestpersonID = [TestpersonID]", dbOpenDynaset)
    Set rst = dbs.OpenRecordset("Select * from tbl_faktura ", dbOpenDynaset)

    With rst
        .AddNew
        !fakturaid = Me.CurrentRecord + 1
        .Update
       
    .AddNew
    !Beløb = 4
    .Update
    End With