Determinar impressora pelo ip

Question

Bom dia a todos, como eu fa�o para determinar uma impress�o para cada impressora?
Por exemplo, quero que o or�amento saia em uma impressora e o pedido em outra, quero determinar a impressora em configura��o do sistema.

Att,
Cleverson Melo

Claudia Nogueira · Answer

Eu trabalho dessa forma.Tenho uma tabela chamada cfg_prin com os campos: id_cfgprin, micro, tipo e impressora.Tenho uma tela para configura��o das impressoras, exemplo:Or�amento: ComboBox pra carregar as impressoras.Recibo: ComboBox pra carregar as impressoras.Nota Fiscal ComboBox pra carregar as impressoras.No onShow dessa tela eu carrego as impressoras instaladas no Windows nesses Combobox.Obs.: Adicione Printers ao uses do Form.No onShow:[code]var  i: Integer;  Printer: TPrinter;begin  Printer := TPrinter.Create;  try    for i := 0 to Printer.Printers. Count - 1 do      CbOrcamento.Items.Add(Printer.Printers.Strings);  finally    Printer.free;  end;  CbRecibo.Items := CbOrcamento.Items;  CbNota.Items := CbOrcamento.Items;  with Qry do  begin    Close;    SQL.Text := SELECT * FROM cfg_prin WHERE (tipo = OR�AMENTO) AND (micro = nome_da_maquina);    Open;    if not isEmpty then      CbOrcamento.ItemIndex := CbOrcamento.Items.IndexOf(FieldByName(impressora).AsString);    Close;    SQL.Text := SELECT * FROM cfg_prin WHERE (tipo = RECIBO) AND (micro = nome_da_maquina);    Open;    if not isEmpty then      CbRecibo.ItemIndex := CbRecibo.Items.IndexOf(FieldByName(impressora).AsString);    Close;    SQL.Text := SELECT * FROM cfg_prin WHERE (tipo = NOTA) AND (micro = nome_da_maquina);    Open;    if not isEmpty then      CbNota.ItemIndex := CbNota.Items.IndexOf(FieldByName(impressora).AsString);  e...

F�rum Determinar impressora pelo ip #428665