quinta-feira, 24 de setembro de 2009

Retorna o nome da impressora padrão do windows

Function GetDefaultPrinterName : string;
begin
if(Printer.PrinterIndex > 0)then
begin
Result := Printer.Printers[Printer.PrinterIndex];
end
else
begin
Result := 'Nenhuma impressora Padrão foi detectada';
end;
end;

Nenhum comentário:

Postar um comentário