{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;

0 comentários:
Postar um comentário