Está função recupera o nome da impressora padrão.
É necessário estar declarado Printers na seção uses,
em versões unicode declare Vcl.Printers.
Segue o código fonte da função:
1 2 3 4 5 6 7 8 9 10 11 | 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; |
Exemplo de uso:
1 2 3 4 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetDefaultPrinterName); end; |
