透過ComboEdit取得所有印表機清單

 1,770 total views,  1 views today

Delphi程式備忘：
如果要透過ComboEdit取得印表機清單，原來這麼簡單。

procedure TForm1.FormCreate(Sender: TObject);
var
  scprint:string;
  i:integer;
begin
  cbb1. Clear;
  for i := 0 to Printer. Printers. Count - 1 do
  begin
    scprint := Printer. Printers. Strings[i];
    if Copy(scprint,1,2) <> '' then
      cbb1. Items. Add(scprint);
  end;
  cbb1. ItemIndex := 0;
end;