Albert Kallal's printch2k.mdb

[Tim Marshall]

This is for Albert or anyone else who uses his code for changing default
printers, printch2k.mdb.

With A2003 on Win XP Pro, whenever I use this code, and then check my
windows Printers window, nothing is marked as default anymore. Then,
when I am in another windows program, say word or what-have-you, when I
print, my print dialog picklist is, of course blank, as no default
printer is marked.

However, when I go back to the A2003 App, Albert's GetDefaultPrinter()
still comes up with a default printer, and, in fact, it's the one I wish
to be the default printer. It's just that no other programs, nor Win XP
itself seems to be able to pick out the default.

All of my printers, except for my Adobe printing, are network printers.

Any comments, suggestions as to what I should look at? Thanks very much
in advance.
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Aaron]

i have one set on my reporting system at work that reads and changes reg
entries but its rough cut but it works for switching my printers round as i
have nightly jobs that run to specific net printers

it changes the default printer in the registry
HKEY_CURRENT_USER\Software\Microsoft\Windows
NT\CurrentVersion\Windows\Device
with the printers in
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts

as the reports machine only uses three printers it was easier to hardcode
the chanes but it does move the default printer
i think i looked at the example you are speaking about and it said something
about the default tick and how it doesn't move it around

if u want a look at the rough code i'll get it tommorow

Aaron
"Tim Marshall" <TI****@PurplePandaChasers.Moertherium> wrote in message
news:e4**********@coranto.ucs.mun.ca...

This is for Albert or anyone else who uses his code for changing default
printers, printch2k.mdb.

With A2003 on Win XP Pro, whenever I use this code, and then check my
windows Printers window, nothing is marked as default anymore. Then, when
I am in another windows program, say word or what-have-you, when I print,
my print dialog picklist is, of course blank, as no default printer is
marked.

However, when I go back to the A2003 App, Albert's GetDefaultPrinter()
still comes up with a default printer, and, in fact, it's the one I wish
to be the default printer. It's just that no other programs, nor Win XP
itself seems to be able to pick out the default.

All of my printers, except for my Adobe printing, are network printers.

Any comments, suggestions as to what I should look at? Thanks very much
in advance.
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Tim Marshall]

Tim Marshall wrote:

Any comments, suggestions as to what I should look at? Thanks very much
in advance.

Here's a comment that should be directed at me: RTFM!!!

I just discovered the application.printer object....
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Tim Marshall]

Aaron wrote:

i have one set on my reporting system at work that reads and changes reg
entries but its rough cut but it works for switching my printers round as i
have nightly jobs that run to specific net printers

Thank you Aaron, for your effort. However, in playing around with the
printer object, I *think* I've got what I need.
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Albert D.Kallal]

I seen that problem.

There is a line of code in the exmaple that is *supposed* to refresh
that..but, it don't seem to always work.

I should note that that code is rather old, and not needed any more...

In access 2002 and later, there is a built in printer object, and it lets
you switch the printer with ease.

You can use:

Set Application.Printer = Application.Printers("HP LaserJet Series II")

The above means you don't need my code.

So, to save/switch, you can use:

dim strDefaultPrinter as string

' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName

' switch to printer of your choice:

Set Application.Printer = Application.Printers("HP LaserJet Series II")

do whatever.

Swtich back.

Set Application.Printer = Application.Printers(strDefaultPrinter)

So, really, I not put any more effort into that code. However, if you do
come up with a refresh fix...I will include it...

Note that following code included in the sample is *supposed* to fix the
problem (but, it does not always work).

Call SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, ByVal "windows")

However, since that code actually makes a change to the .ini file via the
"writeprofile", it is actually up to window to "catch" this write to a .ini
file..and change it to a registry entry...

That code presumably would work on windows 95....and perhaps even windows
3.1 that used a .ini file....

win 95 and later don't use the .ini file...but windows is supppsoed to still
handle this approach...

Regardless, since ms-access now has this ability built in, not much need for
my code anymore....

--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
pl*****************@msn.com
http://www.members.shaw.ca/AlbertKallal