Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 2 de maio de 2013

DELPHI - Escolhendo Impressora padrão para impressão - Set Default Printer

Reações: 

//Declarar unit: Printers

Uses
  Printers;
//Pegar Impressora pelo nome da impressora:
Var
iP : Integer;
begin
  iP := Printer.Printers.IndexOf('LX300');
  if iP >= 0 then
    Printer.PrinterIndex := iP;
end;
// Pegar nomes das impressoras instaladas no computador local
function PrintersNames: TStringList;
var
  Printer: TPrinter;
begin
    Result  := TStringList.Create;
    Result.Text := Printer.Printers.Text;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer