salam::
There is now built in way to this in excel or word but May be try with this
1. Set your print Area.
2. Alt+F11--->Insert Module (Copy This code)
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wsSheet As Worksheet
Dim sFooter As String
Cancel = False
Application.EnableEvents = False
For Each wsSheet In ActiveWindow.SelectedSheets
With wsSheet
sFooter = .PageSetup.LeftFooter
.PageSetup.LeftFooter = ""
.PrintOut From:=1, To:=1
.PageSetup.LeftFooter = sFooter
.PrintOut From:=2
End With
Next wsSheet
Application.EnableEvents = True
End Sub
3. Run the Macro
regards
Bookmarks