LANÇAMENTO! Curso de Delphi 2009, clique aqui e confira!
Código
{Em uses acrescentar Printers}
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
LANÇAMENTO! Curso de Delphi 2009, clique aqui e confira!