Jag har fastnat vid ett problem med sidnumrering.

Jag har gjort en kunddatabas som jag vill skriva ut rapporter i.

Jag vill att när man skriver ut flera kunder så ska sidnumreringen börja på sidan 1 varje gång en ny kund skrivs ut. Nu räknar den bara upp för varje sida.

="Sida " & [Sida] & " av " & [Sidor]

Är det någon som vet hur jag löser detta problem.

/Thomas

1 ställ en variable i din header. I PAgefotter_Format eventet ökar du vädert med 1. Så skriver du ut värdet på variabeln istället för sida.

Fungerar inte...


Dim intCounter As Integer


Private Sub Grupphuvud1_Format(Cancel As Integer, FormatCount As Integer)


intCounter = 0

End Sub

Private Sub SidfotAvsnitt_Format(Cancel As Integer, FormatCount As Integer)
intCounter = intCounter + 1
End Sub

Vad händer?

Räknar den upp per sida?
I så fall måste du lägga variabeln i rätt grupp (kunden).

Räknar den dubbelt så mycket när du skriver ut?
Händer när man gör beräkningar på OnFormat, då fortsätter den beräkningarna när man skriver ut. Så då måste man skriva ut direkt.

Den räknar inte upp , den frågar t.o.m. om ett värde till variablen, som jag skapat...


/Thomas

Skapa en publik funktion i rapporten som retunerar variabeln. Annropåa den med: =DinSidFunktion()

Alternativt buter du ut din textbox mot en label och uppdatera caption på den med kon i sectionens format event.