filename issue

[Trevor3007]

hi ,

i currently use the following code:-

Sub PrntEU()'
' PrntEU Macro
' print as PDF TimeSheet & EXP
'


'
    Range("A1:J22").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\UsersTimesheets\To Be Approved\TSheet WC 11-02-2019.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Sheets("Expenses-Reimburse").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Timesheets\To Be Approved\Exp WC 11-02-2019.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Sheets(TSheet WC 11-02-2019").Select
    Range("F15").Select
End Sub

all is good until I run it with new file name , how can i solve this please?

KR
Trevor3007

 

[rlv01]

hi ,
how can i solve this please?
Trevor3007

Start by providing a detailed description of the problems you are having. Be specific, "It gives me an error" is not specific, while "I get a Run-Time error 1004 'Document not saved' at the ExportAsFixedFormat line" is highly specific. Lastly tell us what end result you are attempting to achieve.

 

[Trevor3007]

Start by providing a detailed description of the problems you are having. Be specific, "It gives me an error" is not specific, while "I get a Run-Time error 1004 'Document not saved' at the ExportAsFixedFormat line" is highly specific. Lastly tell us what end result you are attempting to achieve.

Good morning rlv01
thank you for your reply.

I ran the workbook & it worked OK!!!!!

MTA for your help. But all good so far.

Have a great day.