Computer Name

**EDITTED - thought id did it in the first place**

I am looking a spreadsheet with userform to print labels.

I am looking at the same spreadsheet but the label printers are of three make and therefore have 3 different name. I am looking at using the Computer Name to pick the correct print name. Also looking at displaying the Computer Name on the Userform


Code so far

Private Sub frmLABELS_Initialize()
  

Dim strHostName As String

strHostName = Environ("ComputerName")

. 
.
.
.

    Label9.Caption = strHostName.Value
    
End Sub

-------------------------------------------------------------------------------

Private Sub cmdMORE_Click()

.
.
.
.

Dim strDefaultPrinter As String
Dim strLabelPrinter As String

If strHostName = "NSHxxxxx1" Then
             strLabelPrinter = "ZDesigner GK420t"
             
   ElseIf strHostName = "NSHxxxxx2" Then
             strLabelPrinter = "ZDesigner TLP 2844"
             
    ElseIf strHostName = "NSHxxxxx3" Then
             strLabelPrinter = "Zebra  TLP2844"
             
   Else: strLabelPrinter = Application.ActivePrinter
  
End If

Worksheets("Sheet1").Range("B10") = frmLABELS.cboCLINIC.Value
Sheets("Sheet1").Range("A1:B4").PrintOut ActivePrinter:=strLabelPrinter, Copies:=txtNO.Value
Application.ActivePrinter = strDefaultPrinter

End Sub

I think this should work but when tested no it didnt.. Please Help... Where am I going wrog?

Please put the code between code tags
Try the following instead of the first part

Private Sub UserForm_Initialize()
    Dim strHostName As String

    strHostName = Environ("ComputerName")
    Label9.Caption = strHostName
End Sub

Welcome to the board, maclevey.

Please take a few minutes to read the Forum Rules, and then edit your post to wrap your code with CODE tags.

Thanks.

EDIT: Thank you.

So: got it sorted?

How about ...

Private Sub cmdMORE_Click()
  Dim sPrtDef       As String

  sPrtDef = Application.ActivePrinter

  Select Case Label19.Value
    Case "NSHxxxxx1"
      Application.ActivePrinter = "ZDesigner GK420t"
    Case "NSHxxxxx2"
      Application.ActivePrinter = "ZDesigner TLP 2844"
    Case "NSHxxxxx3"
      Application.ActivePrinter = "Zebra  TLP2844"
  End Select

  With Worksheets("Sheet1")
    .Range("B10") = frmLABELS.cboCLINIC.Value
    .Range("A1:B4").PrintOut Copies:=txtNo.Value
  End With

  Application.ActivePrinter = sPrtDef
End Sub

10-4 .