دانلود كامپوننت دلفي

uses Printers;
function GetDefaultPrinterName : string;
begin
if(Printer.PrinterIndex > 0)then
begin
GetDefaultPrinterName := Printer.Printers[ Printer.PrinterIndex ];
end
else
begin
GetDefaultPrinterName := '';
end;
end;