Melissa wrote:
Does anyone have a generic procedure for adding blank lines to reports like
Sales details, PO details and/or Orders details. The procedure would need to
count the number of line items, determine the remaining page to fill and
print blank lines with the same number of fields as the line items. In
addition, if there were a long list of line items that carried over to a
second and possibly more pages, to print blank lines at the last page. The
available page length would be more after the first page.
And as a wrench in the works, say an orders report is for several customers
and the report page breaks at the end of each customer, the procedure would
need to print blank lines after each customer.
Thank you very much!
Melissa
Do you know how to program VBA? Or are you a macro coder?
If you are a programmer utilizing VBA, please look at
MoveLayout/MoveNext/PrintSecion in on-line help.
You might want to create a running sum variable that is reset on page
breaks or something like that. Increment the variable for each detail
line. Then run a loop.
Here is an example. It will not do what you want but it should provide
some info. I created a field called MoveCount and it is in the
GroupHeader0 band.
Private Sub GroupHeader0_Format(Cancel As Integer, _
FormatCount As Integer)
'intCount is a global variable for the report
If Me.MoveCount < intLineCnt Then
'I want to move to the next line until
'I can start printing. This report prints
'from the middle of the page to the bottom
'so I need to calc when to start printing
'but not overflow to the next page.
Me.MoveLayout = True
Me.PrintSection = False
Me.NextRecord = False
Me.MoveCount = Nz(Me.MoveCount, 0) + 1
Else
Me.MoveLayout = True
Me.PrintSection = True
Me.NextRecord = True
End If
End Sub
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
Me.MoveCount = 0
Dim rst As Recordset
Dim strSQL As String
Dim lngWidth As Long
Dim lngHeight As Long
Dim lngTotalLines As Long
Dim lngRet As Long
'get the number of records to print on this page
intRecCnt = GetRecCount()
If Me.Notes > "" Then
'get the number of lines it will take to
'print a memo field. This is a Stephan
'Lebans routine found at his web page.
lngRet = fTextHeight(Me.Notes, , _
lngHeight, lngWidth, lngTotalLines)
intNotes = lngTotalLines
End If
'used to calc where to start printing on a page
intLineCnt = 31 - intNotes - (intRecCnt + 1)
End Sub
If you are not a programmer...grin...now's a good time to start.
