Fórum Listando Impressoras #188709
15/10/2003
0
Gostaria de saber que comando usar para listar impressoras instaladas no meu micro, em um listview.
Consegui listá-las em um listbox e também num combobox com este código:
Se algum puder me dar uma dica, agradesço desde já.
Consegui listá-las em um listbox e também num combobox com este código:
procedure TF_Telnet.FormCreate(Sender: TObject); begin Impressoras:=TStringList.Create; Impressoras.AddStrings(Printer.Printers); // pegas as impressoras ComboBox1.items.Assign(Impressoras); ComboBox1.ItemIndex := Printer.PrinterIndex; // posiciona na impressora atual ListBox1.items.Assign(Impressoras); ListBox1.ItemIndex := Printer.PrinterIndex; // posiciona na impressora atual end;
Se algum puder me dar uma dica, agradesço desde já.
Helbert
Curtir tópico
+ 0
Responder
Posts
15/10/2003
Beppe
Você precisa adicionar cada item individualmente. Chame
Ataliba
for I := 0 to Printer.Printers.Count - 1 do
with ListView1.Items.Add do
begin
Caption := Printer.Printers[I];
end;Ataliba
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)