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

[Jorge M. Martinez Saez]

El 19-06-2012 19:27, Claudio Romero escribió:
> 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;
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
Ok. modificaré la rutina de impresion basandome en tus ejemplos.... creo 
que usar:

for numero:= 0 to Printer.Printers.count -1 do
       if leftstr((Printer.Printers.Strings[numero]),17)= 
'\\jorge-martinez\' then .....

para usar la impresora que quiero basta, ya que solo comparto la oki. 
(pero eso me obligará a instalar mi propia impresora como  para yo 
usarla a traves de la red no es asi? mmmm bueno en este caso sería el 
mal menor -:)  ) .

Nuevamente agradezco tu gran ayuda Claudio.

Atte.

-- 
Jorge Martinez Saez
9-8817012