avishal007
New Member
- Joined
- Nov 28, 2009
- Messages
- 9
I have following code to generating Salary slip in individual in PDF with employee No. but now I want to print all in one PDF file.
Sub SalarySlip()
Dim lastrow As Long, RA As Long
lastrow = Sheets("Salary").Cells(Rows.Count, "B").End(xlUp).Row
For RA = lastrow To 6 Step -1
Sheets("Salary").Select
Range("B" & RA).Select
Selection.Copy
Sheets("Slip").Select
Range("K2").PasteSpecial Paste:=xlPasteValues
Sheet2.Range("A1:I31").ExportAsFixedFormat xlTypePDF, Filename:="C:\Slip\" & Sheet2.Range("K2").Value, openafterpublish:=False
Next RA
End Sub
Sub SalarySlip()
Dim lastrow As Long, RA As Long
lastrow = Sheets("Salary").Cells(Rows.Count, "B").End(xlUp).Row
For RA = lastrow To 6 Step -1
Sheets("Salary").Select
Range("B" & RA).Select
Selection.Copy
Sheets("Slip").Select
Range("K2").PasteSpecial Paste:=xlPasteValues
Sheet2.Range("A1:I31").ExportAsFixedFormat xlTypePDF, Filename:="C:\Slip\" & Sheet2.Range("K2").Value, openafterpublish:=False
Next RA
End Sub