<div>
Now I have tried the code but it doesn't work if there is no printer installed ... In this case my app. terminates and I get an error message saying No default printer currently sellected ?<br />
Can you make it work in this case ?<br />
<br />

</div>


Now I have tried the code but it doesn't work if there is no printer installed ... In this case my app. terminates and I get an error message saying No default printer currently sellected ?
Can you make it work in this case ?



<div>
Hmmm... Try this one.<br />
<br />
<br />
function DefaultPrinter : STRING; <br />
begin<br />
&nbsp; if (Printer=nil) or (Printer.Printers=nil) <br />
&nbsp; or (Printer.Printers.Count = 0)<br />
&nbsp; then begin<br />
&nbsp; &nbsp; Result := ''<br />
&nbsp; end else begin<br />
&nbsp; &nbsp; try<br />
&nbsp; &nbsp; &nbsp; Printer.PrinterIndex := -1; <br />
&nbsp; &nbsp; &nbsp; Result := Printer.Printers[Printer.P<wbr />rinterInde<wbr />x]; <br />
&nbsp; &nbsp; except<br />
&nbsp; &nbsp; &nbsp; on Exception do Result := '';<br />
&nbsp; &nbsp; end;<br />
&nbsp; end; <br />
end;<br />
<br />
<br />
Regards,<br />
<br />
Erik.<br />

</div>


Hmmm... Try this one.


function DefaultPrinter : STRING;
begin
  if (Printer=nil) or (Printer.Printers=nil)
  or (Printer.Printers.Count = 0)
  then begin
    Result := ''
  end else begin
    try
      Printer.PrinterIndex := -1;
      Result := Printer.Printers[Printer.PrinterIndex];
    except
      on Exception do Result := '';
    end;
  end;
end;


Regards,

Erik.


<div>
Ok THANX it works now.<br />

</div>


<div>
<div class="content wysiwyg-content">
How can I detect if there is a default printer selected ?<br />
I don't need to know if there is a printer installed just if it there is a DEFAULT printer selected. 
</div>
</div>


How can I detect if there is a default printer selected ?
I don't need to know if there is a printer installed just if it there is a DEFAULT printer selected. 

Detecting default printer !

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.