Detail_Format

Full_Williams

Registered User.
Local time
Today, 16:51
Joined
Jul 2, 2002
Messages
88
Hi,

I'm trying to dynamically get columns of data into a calander-like report. So far I have my data being formatted in the detail of the report - see below. The one hitch is that there are too many columns for one page and I can't get it to move onto the another page. It seems to format as if it was in the first record of the underlying query. I attached a screen shot to give you an idea of what I'm looking at. Any thoughts on how to solve this are appreciated.

Thanks,
Rob

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngTopMargin As Long
Dim lngOneMinute As Long 'size of one minute in twips
Dim datSchedStart As Date
datSchedStart = #8:00:00 AM#
lngOneMinute = 12
lngTopMargin = 1440 'timeline starts 1" down in section
Me.MoveLayout = False


Me.Interpreter.Top = lngTopMargin + DateDiff("n", datSchedStart, Me.ScheduledStartTime) * lngOneMinute
Me.InterpreterInfo.Top = lngTopMargin + DateDiff("n", datSchedStart, Me.ScheduledStartTime) * lngOneMinute
Me.RequestNo.Top = lngTopMargin + DateDiff("n", datSchedStart, Me.ScheduledStartTime) * lngOneMinute
Me.Interpreter.Height = DateDiff("n", Me.ScheduledStartTime, Me.ScheduledEndTime) * lngOneMinute
Me.Interpreter.Left = Me.ReportColumn - 25 'field in table
Me.InterpreterInfo.Left = Me.ReportColumn 'field in table
Me.RequestNo.Left = Me.ReqNoColumn 'field in table
Me.IntAgencyName.Left = Me.AgencyColumn 'field in table


End Sub
 

Attachments

Users who are viewing this thread

Back
Top Bottom