Remove - Sample Excel File Saved As PDF

[oddworld]

Hi all, i would appreciate some help in removing a PDF header text- Sample Excel File Saved As PDF. I use the below subroutine to print my timesheet to PDF using the title generated from the vale in T1. The code works well, the issue is the PDF has a centred header applied during the creation of the PDF - "Sample Excel File Saved As PDF" . Does anyone have any knowledge on how to omit it?

[
Sub SaveAsPDF()
Dim filename As String
filename = "\\d85userdata.xxxx.xx\xxxxx\xxxxxxxx\My Documents\Time Sheets\" & Range("T1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
filename, Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub]

Regards,
Odd

 

[Sequoyah]

Hi Odd,
see if the answer given here is useful for you Delete header Sample Excel file saved as PDF

 

[Sequoyah]

Hi Odd,
are you sure the header is not added from a macro? Try this code to clear it:

Sub ClearHeader()
    With ActiveSheet.PageSetup
        .CenterHeader = ""
    End With
End Sub

 

[oddworld]

Hi Odd,
are you sure the header is not added from a macro? Try this code to clear it:

Sub ClearHeader()
    With ActiveSheet.PageSetup
        .CenterHeader = ""
    End With
End Sub

Thank you Sequoyah, the clear header routine worked a treat - gold dust - cheers Odd.

​