Columns on reports

  • Thread starter Thread starter patricia
  • Start date Start date
P

patricia

All,
I want to print on columns in the detail secton of my
report only. After every 6 records I want to force a new
column. How can I do this?

Thanks
 
Hi, I don't have a full solution but can offer some ideas.

This code adds blank Detail section after six records. You might be able to
work with it adding more blank sections. I'm not sure how to force a new
column or page in code (can someone offer this?).

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Static intCount As Integer

intCount = intCount + 1
If intCount > 6 Then
Me.NextRecord = False
Me.PrintSection = False
Me.MoveLayout = True

intCount = 0
End If

End Sub

You might want to play with the size of the Page Footer section too /
instead.

Graeme.
 
Back
Top