Código
var
i: Integer;
Printer: TPrinter;
begin
Printer:=TPrinter.Create;
try
for i := 0 to Printer.Printers. Count - 1 do
begin
ComboBox1.Items. Add(Printer. Printers. Strings[i] );
ComboBox1.ItemIndex:=0;
end;
finally
Printer.free;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009