Rapport Sum i bund af side.

- tja

kolonne stregerne i ovenstående skulle have fulgt hinanden som lodrette streger. I Access er stregerne tegnet med bokse, hvilket umiddelbart virker fint.

Denne indsæter 2 lodrette linier i rapporten henholdsvis blå og rød. Det er en gaaaammel kode, og jeg kan ikke huske hvad de forskellige parametrer står for bortset fra lngColor, me prøv at lege lidt med den:


Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Dim lngColor As Long
Dim Hoejde As Single
Me.ScaleMode = 3
Hoejde = Me.Height
lngColor = RGB(0, 0, 180)
Me.Line (50, 0)-Step(0, Hoejde), lngColor

Me.ScaleMode = 3
Hoejde = Me.Height
lngColor = RGB(255, 0, 0)
Me.Line (1200, 0)-Step(0, Hoejde), lngColor
End Sub

Takker for input, men problemet er ikke at tegne stregerne, problemet er at få summeringstallene til at stå nederst på rapporten. De kan ikke stå i foden da nogle fakturaer naturligt har mere end een side.

" De kan ikke stå i foden da nogle fakturaer naturligt har mere end een side."

Hvis du bruger rapportfoden, burde summeringen da komme til sidst på rapporten uanset antal sider.

Jo, det kan du sige, men rapportfod skrives hellerikke nederst på siden. Den skrives under hvad der ellers er på siden pånær sidefod.


Det jeg vil er at have et felt til at stå nederst på siden og ikke blot der hvor detalje sektionen stopper.

Løsningen er givet her....


http://support.microsoft.com/kb/208979

Jeg anvendte metode 3

hmmm.... og så alligevel ikke...

Placeringen er glimrende sålænge detaljesektionen er relativ smal (1 linie), Men hvis man som jeg har nogle varetekster der kan blive mere end en linie, så hopper det i havet, da koden baseres på standardhøjden af detalje sektionen og ikke den strukne højde som kommer når tekstboksen med varebeskrivelsen bliver mere end een linie.

Nu er jeg tilbage ved at måtte nøjes med at skrive summeringerne i pagefooter. og løse problemet med udskrift over flere sider ved at skjule pagefooteren på de sider der er før sidste side.

Min udfordring er nu, hvordan jeg tæller hvilken side der er den sidste i en faktura? -Jeg har til tider mere end en faktura i rapporten.

Jeg har ikke rodet med dit problem siden du annoncerede, at det var løst, og nu har jeg knap tid, så nedennævnte er blot en ide:

Men hvis du grupperer din rapport efter et fakturanummer og viser en gruppefod, er det så ikke muligt at indsætte en subtotal i gruppefoden?

-Ja, det var lige vel hurtigt, men for netop ikke at spilde andres tid...

- Gruppefoden er jo umiddelbart et godt sted, den er bare ikke justeret mod bunden af rapporten.

Jeg vil forsøge at lave summeringen i sidefoden, og så noget tællerværk der kan angive om det er sidste side af en faktura (ud fra faktura nr. ell. lign)

Input modtages gerne hertil.

Hej så ser det ud til at være lykkedes.

ved brug af: http://www.mvps.org/access/reports/rpt0013.htm

og følgende kaldt fra footer formatering event.

Option Compare Database
Option Explicit

Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer


Public Sub hideFoot()
  txtArr.Visible = False
  bf1.Visible = False
  bf2.Visible = False
  bf3.Visible = False
 
End Sub

Public Sub showFoot()
  txtArr.Visible = True
  bf1.Visible = True
  bf2.Visible = True
  bf3.Visible = True
 
End Sub

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

'************ Code Start *************
' This code was originally written by James H Brooks.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' James H Brooks
'
Dim i As Integer
  If Me.Pages = 0 Then
    ReDim Preserve GrpArrayPage(Me.Page + 1)
    ReDim Preserve GrpArrayPages(Me.Page + 1)
    GrpNameCurrent = Me!fakturaId
    If GrpNameCurrent = GrpNamePrevious Then
        GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
        GrpPages = GrpArrayPage(Me.Page)
            For i = Me.Page - ((GrpPages) - 1) To Me.Page
                GrpArrayPages(i) = GrpPages
            Next i
    Else
        GrpPage = 1
        GrpArrayPage(Me.Page) = GrpPage
        GrpArrayPages(Me.Page) = GrpPage
    End If
  Else
    Me!ctlGrpPages = "Side " & GrpArrayPage(Me.Page) & " af " & GrpArrayPages(Me.Page)
    If GrpArrayPage(Me.Page) = GrpArrayPages(Me.Page) Then
      ' Show elements
      showFoot
    Else
      ' Hide elements
      hideFoot
    End If
  End If
  GrpNamePrevious = GrpNameCurrent
End Sub
'************ Code End *************