Hi Cathi,



Thanks Again.
Roland
====================================================================


>Hi Roland,
>
>Here is how to find the first day of the month:
>
>

>Dim dateFirstOfMonth As New System.DateTime(System.DateTime.Now.Year, System.DateTime.Now.Month, 1, 0, 0, 0)
>

>
>Here is how to find the last day of the month:
>
>

>' Returns number of days in the current month
>Dim NumDays As Integer = DateTime.DaysInMonth(DateTime.Now.Year, DateTime.Now.Month)
>
>' Creates a DateTime that is the last day of the current month
>Dim dateLastOfMonth = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DaysInMonth(DateTime.Now.Year, DateTime.Now.Month))
>

>
>To alter the title, you can use the ReportDocument object:
>
>

>oRpt.SummaryInfo.ReportTitle = "My New Title"
>

>
>>Hi,
>>
>>I would like to change the report title in code before calling the Report Viewer. I am using the same report but changing the selection in code.
>>
>>Also I need to use the first day of the month and the last day of the month Dates. I would like to derive the dates BeginMonthDate & EndMonthDate from GetDate() but cannot find the right VB commands or Functions. I found FirstDayOfWeek but not FirstDayOfMonth.
>>
>>Looking for somthing like:
>>FirstDayOfMonthDate(TimeInterval.Month, GetDate())
>>LastDayOfMonthDate(TimeInterval.Month, GetDate())
>>
>>The code is as follows:
>>
>>

>>Public WithEvents oRpt As ReportDocument
>>oRpt = New ExpireList01()
>>oRpt.DataDefinition.RecordSelectionFormula = "{Listing.Status} in " & "[" & "'" & "A" & "'," & "'" & "C" & "'," & "'" & "P" & "'] " & "and {Listing.OurListing} and {Listing.MlsOfficeId}='" & sdMlsOfficeId & "'" & " And {Listing.ListingExpireDate} in DateTime (2003, 03, 01, 00, 00, 00) to DateTime (2003, 03, 31, 23, 59, 59)"
>>CrystalReportViewer1.ReportSource = oRpt
>>

>>
>>I can find how to change the Report Title using the oRpt.------ above.
>>
>>Any help would be appreciated!!!
>>
>>Thanks
>>Roland