Can you retrieve network printer info from printer folder using VBA 1

[SBendBuckeye]

Can you read printer information from the My Computer printers folder in VBA. I need to pass a network printer UNC or NT path to another application which generates reports. I would like to do this via a little Access app I would install locally for the users.

Can someone point me or suggest some things to get me started?

Thanks in advance and have a great day!

 

[SkipVought]

If your just needing to find a path and filename...
just modify the get open filename parameters for the type of file your looking for...

    Set fs = Application.FileSearch
    With fs
        FileName = Application.GetOpenFilename("Jpeg Files (*.jpg), *.jpg")
        For i = Len(FileName) To 1 Step -1
            If Mid(FileName, i, 1) = "\" Then
                Exit For
            End If
        Next
        .LookIn = Left(FileName, i - 1)
        .FileName = "*.jpg"
        If .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending) > 0 Then
            MsgBox "There were " & .FoundFiles.Count & _
                " file(s) found."
            i = 1
            For i = 1 To .FoundFiles.Count
  '==> here's where you do something with each filename
              .FoundFiles(i))
            Next i
        Else
            MsgBox "There were no files found."
        End If
    End With

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[SBendBuckeye]

Thanks, Skip!

How do I do the above with the printers folder in My Computer so I can send a report to the UNC path for a printer? Or is there a better way to select a printer from a list programatticaly?

Have a great day and thanks for the help!

 

[SkipVought]

Well, do you know the orubter name or names? If so, get a match on them. Otherwise you'll have to interactively select from the GetOpenFilename dialog. Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com