******************************************************************
                         SetDefaultPrinter
******************************************************************

I was setting up an automated report program, and wanted the
reports saved as PDF files, then printed.  For this I needed to
change the default printer. I looked for a solution to this problem
for some time, searching the Internet, Compuserve, and a number of 
print sources.  Finally, I found a few hints on the Microsoft 
Technet source on the internet. This program and sample code is
the result.

******************************************************************

Please note that this program is ONLY INTENDED as an example of
setting the default printer under the Windows 95 Operating
Environment using Delphi 2.0.  I have not tested this method under 
any other versions of windows, and from the documentation I have
read I do NOT EXPECT THIS METHOD TO FUNCTION UNDER ANY OTHER
VERSION OF WINDOWS.

There may be better ways to set the default printer! (The code 
does not, in fact, use the exact method illustrated in the 
Microsoft documentation.)

You are free to use the method illustrated in the code.

******************************************************************

This zip file contains the following files.

README   TXT         2,595  08-22-96  8:00p readme.txt
SETDEF~1 EXE       226,304  08-22-96  7:22p SetDefaultPrinter.exe

SOURCE         <DIR>        08-22-96  7:24p Source
ABOUT    DCU         1,907  08-22-96  7:19p about.dcu
ABOUT    DFM         1,345  08-22-96  6:58p about.dfm
ABOUT    PAS           474  08-22-96  6:58p about.pas
MAIN     DCU         4,761  08-22-96  7:19p main.dcu
MAIN     DFM         1,515  08-22-96  7:22p main.dfm
MAIN     PAS         4,096  08-22-96  7:18p main.pas
SETDEF~1 DOF           484  08-22-96  6:43p SetDefaultPrinter.dof
SETDEF~1 DPR           276  08-22-96  6:43p SetDefaultPrinter.dpr
SETDEF~1 RES           876  08-22-96  6:42p SetDefaultPrinter.res

******************************************************************

Why Am I releasing This Code?

I have learned a great deal from other programs available on the
internet and on Compuserve and want to put a solution out there
to pay back all those hours spent by others.  I encourage you to
do the same!

******************************************************************

Jeffrey R. Price             jprice+@osu.edu
Database Manager
The Ohio State University
Fisher College of Business
1775 College Road
Columbus, Ohio 43210-1309
