Hi,

I am new to this site and also new to VBA. Please find below a macro I am presently using to print staff salary slip every month. I'll however love to have a macro that will print the slips so generated to a single PDF. Your help will be very much appreciated!

sub PRINTALL()
Dim cell As Range

For Each cell In Sheets("Salary Sheet").Range("b3:b52")
'range with employee data

If cell.Value <> 0 Then
Sheets("Salary Slip").Range("C6").Value = cell.Value
' cell c6 is the cell with the pull down menu

Sheets("Salary Slip").PrintOut
' print the sheet
End If
Next
End Sub

Thanks again!