H
HangTheDJ
Guest
I am trying to create a printout of an invoice with two special requirements:
1) The invoice total boxes must always appear at the bottom of the page.
2) Vertical lines should be drawn to seperate Item / Description / Qty etc. and the detail section has the Can Grow property set to yes.
To accommodate (1) I have made a call to the following in the OnFormat event of the footer:
****
Function SetGrpFtrLoc(Rpt As Report, GrpFtrLoc As Double)
GrpFtrLoc = GrpFtrLoc * 1440 'Convert from inches to twips.
If Rpt.Top < GrpFtrLoc Then 'Not at location yet, so
Rpt.MoveLayout = True 'move to next print location.
Rpt.NextRecord = False 'Do not go to next record.
Rpt.PrintSection = False 'Do not print the section.
End If 'Until the required offset is reached
End Function
******
To accommodate (2) I have used the Me.Line function on the On Print event to ensure that the vertical lines grow with the section.
Both (1) and (2) work OK on their own but when using both methods the result is that the vertical line in the detail section ends at the last record so there is a gap in the line between the last detail record printed and the Total Footer.
I------------------------------------------------I
I Item Description Qty Price Extended I
I 1 Widget A I
I 2 Widget B I
I Total 500 I
How do I continue the vertical lines from the last detail record to the total section?
1) The invoice total boxes must always appear at the bottom of the page.
2) Vertical lines should be drawn to seperate Item / Description / Qty etc. and the detail section has the Can Grow property set to yes.
To accommodate (1) I have made a call to the following in the OnFormat event of the footer:
****
Function SetGrpFtrLoc(Rpt As Report, GrpFtrLoc As Double)
GrpFtrLoc = GrpFtrLoc * 1440 'Convert from inches to twips.
If Rpt.Top < GrpFtrLoc Then 'Not at location yet, so
Rpt.MoveLayout = True 'move to next print location.
Rpt.NextRecord = False 'Do not go to next record.
Rpt.PrintSection = False 'Do not print the section.
End If 'Until the required offset is reached
End Function
******
To accommodate (2) I have used the Me.Line function on the On Print event to ensure that the vertical lines grow with the section.
Both (1) and (2) work OK on their own but when using both methods the result is that the vertical line in the detail section ends at the last record so there is a gap in the line between the last detail record printed and the Total Footer.
I------------------------------------------------I
I Item Description Qty Price Extended I
I 1 Widget A I
I 2 Widget B I
I Total 500 I
How do I continue the vertical lines from the last detail record to the total section?
