>I have written a dll to print simple reports (using tprinter) which
>resides on an NT server and is supposed to be called from ASP. The dll
>works fine when called from outside the web server, but when called
>ASP returns 8000ffff "There is no default printer currently selected".
>Has anyone any ideas? It would seem that ASP can't see any printers. I
>have tried using the default, and setting specific printers
>(Printer.PrinterIndex = x).
>David O'Brien.

Not sure if this is what you want, but have a look (from the Delphi
known issues list).

        Area: vcl\dialog controls\tprintersetupdialog
        Reference Number: 465 (Published: 12/17/98) 
        Status: Deferred to Next Rel 
        Date Reported: 5/5/98
        Severity: Commonly Encountered
        Type: Basic Functionality Failure
Under Windows NT 4 (SP3) the printer dialog and 
printer setup dialog will always show the default 
printer, not the one chosen through 
Printer.PrinterIndex. Under Win95 (and Win 3.1 with 
D1) the PrinterIndex printer is the one chosen in the 

This can be worked around by calling 
Printer.GetPrinter followed by Printer.SetPrinter, with 
a 0 parameter for hDevMode, to force TPrinter to 
update its info.
The following event handler shows what is 
neccessary to have the NT4 printer dialogs to show 
the correct printer after PrinterIndex is set in code. If 
the GetPrinter and SetPrinter calls are commented 
out then the dialogs will always show the default 
printer, not the PrinterIndex one.

procedure TForm1.Printersetup1Click(Sender: 
  Device : array[0..255] of char;
  Driver : array[0..255] of char;
  Port   : array[0..255] of char;
  hDMode : THandle;
  Printer.PrinterIndex := 1; { set to any non-default 
printer }
  Printer.GetPrinter(Device, Driver, Port, hDMode);
  Printer.SetPrinter(Device, Driver, Port, 0);

  if PrinterSetupDialog1.Execute then begin
    Memo1.Lines := Printer.Printers;


Carl Reynolds                      Ph: +64-9-4154790
CJN Technologies Ltd.             Fax: +64-9-4154791
[EMAIL PROTECTED]                DDI: +64-9-4154795
PO Box 302-278, North Harbour, Auckland, New Zealand
12 Piermark Drive, North Harbour Estate, Auckland, NZ
Visit our website at http://www.cjntech.co.nz/

    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to