' Set the printer with the input name as the default printer for *this ' application* (not for the whole system)Function SelectPrinter(ByVal printer_name As String) As Boolean Dim i As Integer SelectPrinter = False For i = 0 To Printers.Count - 1 ' if the specified printer is found, select it and return True If Printers(i).DeviceName = printer_name Then Set Printer = Printers(i) SelectPrinter = True Exit For End If Next iEnd Function

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job