Visual Basic

ObjWb.close()
            releaseObject(ObjWs)
            ObjWs = Nothing
            releaseObject(ObjWb)
            ObjWb = Nothing
            releaseObject(objFSO)

            objFSO = Nothing

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub

Tom Deketelaere wrote:

Print the report and check if its still there

Tom Deketelaere wrote:

At the end of every page: add a line to the section 'page footer'

DateTimePicker1.Value.Month