Identify which computer

[Haree]

Hi all, I have a code which works fine from other computers. But when i use it from the main computer it does not work so can you please help me in identifying which computer the code is running so that i can use that printer

Private Sub CommandButton1_Click()
Set mynetwork = CreateObject("WScript.network")
mynetwork.setdefaultprinter "\\Desktop-165t6df\THERMAL Receipt #1"
ActiveSheet.Range("A3:B52").Select
Selection.PrintOut Copies:=1
mynetwork.setdefaultprinter "\\Desktop-165t6df\HP LaserJet 1020"
End Sub

if the code is run from "Desktop-165t6df" this computer i just want the printer's name

Thanks in Advance

 

[RoryA]

Try environ("computername") - i.e.

mynetwork.setdefaultprinter "\\" & environ("computername") & "\THERMAL Receipt #1"

 

[Haree]

Thank you so much RoryA. I was able to get the computer name using the environ function. I have changed the code using the environ function can you please check it . My if statement isnt working.

Thank you so much for your time and patience.

Private Sub CommandButton1_Click()
Dim Computername As String
Set mynetwork = CreateObject("WScript.network")
Computername = Environ$("computername")
If Computername <> "Desktop-165t6df" Then
    mynetwork.setdefaultprinter "\\Desktop-165t6df\THERMAL Receipt #1"
    ActiveSheet.Range("A3:B52").Select
    Selection.PrintOut Copies:=1
    mynetwork.setdefaultprinter "\\Desktop-165t6df\HP LaserJet 1020"
Else
    mynetwork.setdefaultprinter "THERMAL Receipt #1"
    ActiveSheet.Range("A3:B52").Select
    Selection.PrintOut Copies:=1
    mynetwork.setdefaultprinter "HP LaserJet 1020"
End If
End Sub