From: "Peter Below (TeamB)" <100113.1101@compuXXserve.com>
Subject: Re: Programatically change default Printer
Date: 23 Dec 1999 00:00:00 GMT
Message-ID: <VA.000044d4.0101393e@petersnewbox>
Content-Transfer-Encoding: 8bit
References: <br036soqlkq8tn3tesrspa1malvelefvta@4ax.com>
Content-Type: text/plain; charset=iso-8859-1
Organization: TeamB
Mime-Version: 1.0
Reply-To: 100113.1101@compuXXserve.com
Newsgroups: borland.public.delphi.objectpascal

In article <br036soqlkq8tn3tesrspa1malvelefvta@4ax.com>, Ray
Browning wrote:
> I want to be able to dynamically change a users default printer.
>

Change default printer:

var
  Device : array[0..255] of char;
  Driver : array[0..255] of char;
  Port   : array[0..255] of char;
  hDeviceMode: THandle;
begin
  Printer.PrinterIndex := ....; // select printer to make default
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  StrCat( Device, ',');
  StrCat( Device, Driver );
  StrCat( Device, ',');
  StrCat( Device, Port );
  WriteProfileString( 'windows', 'device', Device );
  StrCopy( Device, 'windows' );
  SendMessage( HWND_BROADCAST, WM_WININICHANGE, 0, longint( @Device
));


Peter Below (TeamB)  100113.1101@compuserve.com)
No e-mail responses, please, unless explicitly requested!