VBA - Print to PDF with file name from a cell

[khalid007]

Dear All

I am new to VBA. I have the below code which is a printing loop to a specific number specified in Cell A2.

[/COLOR]Sub PrintLeveCal()'
' PrintLeveCal Macro
'


'
    Emp = 1
    Do While Emp <= Sheets("Invoice").Range("A2").Value
    Sheets("Invoice").Select
    Range("A1").Value = Emp
    Range("A6:J75").Select
    ActiveSheet.PageSetup.PrintArea = "$A$6:$J$75"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Emp = Emp + 1
Loop
Sheets("Invoice").Select
Reply = MsgBox("All invoices has been printed", vbInformation + vbOKOnly)

End Sub[COLOR=#333333]

Now I want to modify the code to Print it as PDF, with file name from a Cell and to a specific location, suppose C:\Output.

Thanks in Advance.

 

[AlphaFrog]

What cell will have the file name?

Each pdf file will need a different file name. Will that cell value change for each time in the print loop?

 

[khalid007]

Thanks Alpha. By the way I just did it.