*RESOLVED * String Comparison Problem

[Eikon]

I have stored the names of two printers in an INI using WritePrivateProfileString. I read them back into two strings using GetPrivateProfileString. I then want to set the printer to the name of one of those strings:

Dim prn As Printer
Dim str As String

For Each prn In Printers
str = prn.DeviceName
If Name$ = str$ Then MsgBox "Success": Exit For
MsgBox Name$
MsgBox str$
Next

The problem is that both Name$ and String$ are exactly the same in the MsgBoxes but my success condition never fires. Do i need to do some special formating to get a loaded INI string to match a Printer DeviceName string?

Solution:
Ret$ = Space(255)
Call GetPrivateProfileString("Printers", "FullPage", "", Ret$, 255, IniFile$)
Ret$ = Left(Ret$, Len(Trim$(Ret)) - 1)
fpPrinter$ = Ret$

[peet]

try using uppercase or lower case

If UCase(Name$) = UCase(str$)

maybe ?

[Eikon]

No such luck... Trim either.

[peet]

strange indeed...

I tried this

Private Sub Command1_Click()
    Dim s1 As String
    Dim s2 As String
    Dim i As Integer
    s1 = Text1(0).Text
    For i = 1 To Text1.Count - 1
        s2 = Text1(i).Text
        If s1 = s2 Then MsgBox "Success": Exit For
        MsgBox s1 & " " & s2
    Next i
End Sub

worked as it should... only difference (assuming the strings in your code are the exact same) are the vars... maybe something about the usage of $

[leinad31]

I got this to work:

Private Sub Command1_Click()
   Dim prn As Printer
   Dim str As String
   
   For Each prn In Printers
      str = prn.DeviceName
      If str = "HP DeskJet 400" Then
         MsgBox "Success"
         Exit For
      End If
      MsgBox str
   Next
End Sub

Rewrite your IF THEN statement.
Check your values for Name$
Try to use both Trim() and UCase(), Trim() first.

[Eikon]

Thats the thing though because I cant do checking like that. This must work on all machines for all printer names.

My string has a "/" in it, should that matter?

[peet]

tried using a "/" , still the sample I used above worked just fine...

could you post the parts of the progject that do not work?

[peet]

huh?

it says resolved ? would you like to share the solution ?