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
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