Macro with button to Convert into PDF Document

So I created a Macro button that creates a PDF but it only works on my computer ?!? I have seen issues like this happening on various forums but non offer solutions....The coding is as follows:

Sub CreatePDF()
'
' CreatePDF Macro
'

'
    Application.ActivePrinter = "Adobe PDF on Ne02:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF on Ne02:"",,TRUE,,FALSE)"
End Sub

I saw somewhere that Ne02 may be user specific to Adobe? is there any way to make the coding so that multiple computers/users can use the function?

I have been trying to fix this for the past 2 hours and have not had any luck at all