[Lazarus-es] Impresion (matricial) en red con win7

[Claudio Romero]

Reenvio con una corrección Button1Click.

procedure TForm1.Button1Click(Sender: TObject);
var i,NroImpresora:integer;
begin
	memo1.Lines.Clear;
	for i:=0 to Printer.Printers.Count-1 do
		memo1.Lines.add(IntToStr(i)+' - '+ Printer.Printers.Strings[i]);
	NroImpresora:=BuscarImpresora(Edit1.Text);
	if NroImpresora=-1 then ShowMessage('Impresora no encontrada')
	else ShowMessage('Nro de impresora '+IntToStr(NroImpresora));
end;