How to add for printing and then remove footers?

[DarkJester89]

I found this code, which I'm trying to convert to add just a footer, and it'll be on a print button to reflect on pages to be printed.

I only need the footer on a specific sheet, "Sheet1", and then a seperate code to remove footer after print complete.

Option Explicit

Sub InsertHeaderFooter()

Dim wsAs Worksheet
Application.ScreenUpdating = False
 Each wsInThisWorkbook.Worksheets
                   With ws.PageSetup
                                       .LeftHeader = “Company Name:”
                                       .CenterHeader = “Page &P of &N”
                                       .RightHeader = “Printed &D &T”
                                       .LeftFooter = “Path : “ &ActiveWorkbook.Path
                                       .CenterFooter = “Workbook Name: & F”
                                       .RightFooter = “Sheet: &A”
                  End With
Next ws
Set ws = Nothing
Application.ScreenUpdating = True
End Sub

Thank you in advance.

 

[shg]

Sub PrintWithFooter()
  Dim wks           As Worksheet

  Set wks = Worksheets("Sheet1")

  With wks
    .PageSetup.CenterFooter = "whatever"
    .PrintOut
    .PageSetup.CenterFooter = ""
  End With
End Sub

 

[DarkJester89]

Hmm, perhaps they shouldn't have been merged in one sub.

Sub PrintWithFooter()
  Dim wks           As Worksheet

  Set wks = Worksheets("Sheet1")

  With wks
    .PageSetup.CenterFooter = "Whatever"
End Sub

I removed the printout and reset, as i need to reset it at a seperate point in the macro. Thanks though! Got it to work!