透過ComboEdit取得所有印表機清單
1,378 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;
