changing footer before save
Hello Everyone
We want to change the footer when the save event occurs. To do so, we wrote our code in subroutine objApp_WorkbookBeforeSave . We have confirmed that the subroutine objApp_WorkbookBeforeSave gets executed when a workbook is saved by tracing the execution. Although, every statement in the subroutine gets executed, the footer does not change. Can someone please help Following is our code in Subroutine WorkbookBeforeSave Private Sub objXLApp_WorkbookBeforeSave(ByVal wbkSaveBook As Excel.Workbook, ByVal blnSaveAsUI As Boolean, Cancel As Boolean Dim shtSheet As Objec Dim strHeaderFooter As Strin wbkSaveBook.ActiveSheet.Range("a1").Value = "india ' Put the footer into all sheet For Each shtSheet In wbkSaveBook.Sheet With shtSheet.PageSetu .LeftHeader = "LH .CenterHeader = "CH .RightHeader = "RH .LeftFooter = "LF .CenterFooter = "CF .RightFooter = "RF End Wit Next shtShee End Su We are using excel 2000 Thanks Karthi |
changing footer before save
Works fine for me.
-- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Karthik Palaniappan" wrote in message ... Hello Everyone, We want to change the footer when the save event occurs. To do so, we wrote our code in subroutine objApp_WorkbookBeforeSave . We have confirmed that the subroutine objApp_WorkbookBeforeSave gets executed when a workbook is saved by tracing the execution. Although, every statement in the subroutine gets executed, the footer does not change. Can someone please help. Following is our code in Subroutine WorkbookBeforeSave: Private Sub objXLApp_WorkbookBeforeSave(ByVal wbkSaveBook _ As Excel.Workbook, ByVal blnSaveAsUI As Boolean, _ Cancel As Boolean) Dim shtSheet As Object Dim strHeaderFooter As String wbkSaveBook.ActiveSheet.Range("a1").Value = "india" ' Put the footer into all sheets For Each shtSheet In wbkSaveBook.Sheets With shtSheet.PageSetup .LeftHeader = "LH" .CenterHeader = "CH" .RightHeader = "RH" .LeftFooter = "LF" .CenterFooter = "CF" .RightFooter = "RF" End With Next shtSheet End Sub We are using excel 2000. Thanks, Karthik |
changing footer before save
Hi Bob
Thank you for the quick response. May I know the version number of Excel in your PC. for example, mine is Excel 2000 version 9.0.0.3822. Thanks Karthik |
changing footer before save
Karthik,
Mine is Excel 2000 version 9.0.3821 SR-1, XP pro. But it seems straightforward what you are doing, so it should work. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Karthik Palaniappan" wrote in message ... Hi Bob, Thank you for the quick response. May I know the version number of Excel in your PC. for example, mine is Excel 2000 version 9.0.0.3822. Thanks, Karthik |
changing footer before save
Thanks Bob. You were right. The macro worked if IManage(Document Management System from www.interwoven.com) was uninstalled.
"Bob Phillips" wrote: Karthik, Mine is Excel 2000 version 9.0.3821 SR-1, XP pro. But it seems straightforward what you are doing, so it should work. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Karthik Palaniappan" wrote in message ... Hi Bob, Thank you for the quick response. May I know the version number of Excel in your PC. for example, mine is Excel 2000 version 9.0.0.3822. Thanks, Karthik |
All times are GMT +1. The time now is 02:20 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com