Re: Resetting Default Printer

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

http://vbnet.mvps.org/code/system/setdefaultprinter.htm

If it's a matter of setting then changing back, store the current default printer's name.


--

Randy
ms mvp, visual basic
http://vbnet.mvps.org/

"John Simpson" <jasimp@xxxxxxxxxxxxx> wrote in message news:OvRK$IviJHA.4868@xxxxxxxxxxxxxxxxxxxxxxx
VB6 - Vista & XP

I have an application that prints a purchase order. The user wants to select a different printer for this
but doesn't want his default printer changed. I'm using the following code:

defaultPrinter = Printer.DeviceName ' get the default printer
cdbPrinter.ShowPrinter ' select a printer
DoEvents

This prints the PO OK with the printer that the user selected.

Printer.EndDoc

Now I want to reset the printer to default:

For Each p In VB.Printers
If p.DeviceName = defaultPrinter Then
Set Printer = p
End If
Next

This does not reset to the default printer.

What am I doing wrong??? Thanks is advance for any enlightenment.

John


.

Relevant Pages

  • Re: Bluetooth Manager wont start
    ... MVP - Mobile Devices ... "The Bluetooth Radio failed to turn ON due to insufficient driver memory available. ... You must perform a normal reset before you can turn ON the Bluetooth Radio." ...
    (microsoft.public.pocketpc)
  • Re: Desktop Authority Password Self Service
    ... I am looking for a reasonbly priced Self Reset password tool. ... Amnon Feiner ... Cris Hanna [SBS - MVP] ... That's why the network exists. ...
    (microsoft.public.windows.server.sbs)
  • Re: Easy newbie Canon Rebel XT 1st questions
    ... fav local store they won't let me return a Rebel (or maybe not a D70 ... format a CF card with Auto Reset turned, which are my own cards since none comes with the XT, the numbers reset to 0001, as you say. ... I agree with you that my allegedly expert store manager needs to spruce up his techie knowledge. ...
    (rec.photo.digital.slr-systems)
  • Re: Help with programming on HP49G+
    ... The first list of NOVALs is for the Reset values, ... The program doesn't store the ... THEN EVAL \-> Rente Inv Scrap N Skat Afskr ...
    (comp.sys.hp48)
  • Re: password problem
    ... Jupiter Jones [MVP] ... "jeff" wrote in message ... > password has been expired and I need to reset it. ... > system for logging in in over a year, ...
    (microsoft.public.windowsxp.newusers)