VBA Code for Payslip Save As PDF

[kumar lama]

Hello All,
I am looking code for save as PDF in excel 2013,
i have one sheet (Summery) Calculation all data. other Sheet (Payslip). i am using Lookup formula to get data from Summary.
i am using Below code for printing all Payslip in one time. same like that i want Save AS code. Please help me. AJ1 Is lookup Value. and Ak1= Start Number, AK2= End Number(Or last Row of Payroll)

Public Sub PrintSlips()
Dim lStart As Long
Dim lEnd As Long
Dim l As Long
Dim rngSlipNumber As Range


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


For l = lStart To lEnd
rngSlipNumber.Value2 = l
rngSlipNumber.Parent.PrintOut
Next l
End Sub

D8 Cell Has employees Name,
Also its better i can save file every name.


Thank in Advance

 

[royUK]

Try this

Option Explicit






Public Sub PrintSlips()
    Dim lStart As Long
    Dim lEnd As Long
    Dim l As Long
    Dim rngSlipNumber As Range


    With Sheet1
        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("D8").Value, _
                                 Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                 OpenAfterPublish:=False
        Next l
    End With
End Sub

 

[kumar lama]

Thanks alot Mr. royUk but its help me what i asked but i want more something.

Is it possible to do like Filename:=.Range(Mr."D8"&"E8").Value, i want use Mr and first name and second Name using Code. Like D8=A & E8=B, File need to save As Mr. AB

As this code file are saving inside Document folder, Is it possible to make other destination?
thank you, i hope you have answer for this also.

 

[kumar lama]

Mr. royUk I solved This Is it possible to do like Filename:=.Range(Mr."D8"&"E8").Value, i want use Mr and first name and second Name using Code. Like D8=A & E8=B, File need to save As Mr. AB

 

[royUK]

I'm not sure if you have solved this or not

[COLOR=#333333]Filename:="Mr. " &.Range("D8").Value  & " " & .Range("E8").Value,[/COLOR]