EDIT CODE

[gleamng]

Good evening house
please i need help with the macro below,
the macro generate payslip for each row (that is if i have 10 records, it created 10 pdf files
what i want now is for the macro to generate one single file with each record per page (i.e 10pages pdf file)

thanking you for your help

Option Explicit

Sub Slip()
On Error Resume Next
MkDir "C:\Payslip"
Sheet5.Range("A1:D32").ExportAsFixedFormat xlTypePDF, Filename:="C:\Payslip\" & Sheet5.Range("F3").Value, openafterpublish:=False
End Sub

Sub PDF_PAYSLIP()
Application.ScreenUpdating = False
On Error Resume Next
MkDir "C:\Payslip"
Dim x As Long
Dim y As Long
x = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For y = 4 To x
If Len(Sheet2.Cells(y, 1).Value) > 0 Then
Sheet5.Range("F3").Value = Sheet2.Cells(y, 1)
End If
Call Slip
Next y

MsgBox "Pay Slips successfully generated"
End Sub

 

[MARK858]

I can see what you want now and the only thing I can think of at the moment is to copy over Sheet5 details into a separate sheet and put page breaks in-between to get the result you desire but with the Excel limit on page breaks I consider this impractical with 20000 employees.

Due to the above I am leaving this thread and hopefully someone else will come up with a more practical solution.
I am a bit surprised that with >20000 employees you haven't got specialised payroll software.