Nobres colegas, estou precisando pegar a relação de impressoras 
instaladas em um determinado micro e mostra-las em um dbgrid.

Tentei a rotina abaixo, porém, as impressoras aparecem na mesma linha no 
dbgrid.

  with Printer do
  begin
    BeginDoc;
    tbImpressora.Append;
    tbImpressoraImpressoraModelo.Text:=Printer.Printers.Text;
    tbImpressora.Post;
    EndDoc;
  end;

Ex.: HP Deskjet F300 series HP Deskjet 3425 series

gostaria que tivesse uma quebra de linha a cada impressora encontrada.

Ex.: HP Deskjet F300 series
       HP Deskjet 3425 series



Estou utilzando delphi7 e paradox

Abraços.

Responder a