VBA-excel page Save As PDF Run-Time Error 1004

[kumar lama]

Hello,

I am using below code to export Salary Payslip as PDF but i am getting below error while exporting.

after export few Page, i am getting "Run-Time error 1004" (Document not Saved. The Document may be open, or error may have been encountered when saving).

Code is below

Option Explicit
Public Sub SaveAsPdf()
Dim lStart As Long
Dim lEnd As Long
Dim l As Long
Dim rngSlipNumber As Range

With Sheet5
Set rngSlipNumber = .Range("AJ1")
lStart = .Range("Ak1") ' indicates starting Sr num
lEnd = .Range("Ak2") ' indicates ending Sr num


For l = lStart To lEnd
rngSlipNumber.Value = l
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Range(" AG4") & "-" & .Range("D8") & " " & .Range(" AR1").Value, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next l
End With
End Sub




Thanks in Advance.

 

[mole999]

what are you doing with the loop, your not apparently changing the filename, so second iteration will be same name as first

 

[kumar lama]

Hello mole999

I am not export in VBA.
I have use lookup formula in this sheet and AJ1 Is lookup Value AK1=Start No of range , AK2= end No of range.
And "Filename:=.Range(" AG4") & "-" & .Range("D8") & " " & .Range(" AR1").Value, _" AG4=Employees ID, D8=Employees Name, AR1 = Current Date,

Thank you,