If (uiItem.uiItemType = XFReportUIItemType.PageFooterDate) ThenDim
combinedText As String ' Get the current date and timeDim
currentDateTimecurrentDateTime = NowcombinedText = "Date & Time: " &
FormatDateTime(currentDateTime, vbLongDate) & " " &
Form...