[quim]

Hola morcoszorilla,

parece que hablas también aleman la función que me has enviado va bien.

GetImpresora('HP Color LaserJet 2600n');

detecta la impresora sin problemas y también puedo imprimir el código fuente (y todo lo quiero) desde mi ordenador. Pero imprimir desde el programa no va.

Me gustaría hacer una prueba con una versión "española" del mismo código. Quizas puedes enviarme la versión EXE.

Ciao, Quim

Código Delphi [-]
 
uses printers;
Function GetImpresora(Impre:String):Integer;
Var
nCont:Integer;
lSearch:Boolean;
cNewLIne:String;
begin
lSearch:=False;
cNewLine:=Chr(10)+Chr(13);
  For nCont:=0 to Printer.Printers.Count - 1 do
  //buscamos la impresora en la lista del sistema
  begin
    if Pos(impre, Printer.Printers[nCont]) <> 0 then
    begin
    lSearch:=True;
    Result:=nCont;
    Break;
    end;
  end;
  if lSearch = False then
  begin
  Result:=-1;
  ShowMessage('Impresora no encontrada:'+cNewLine+Impre+cNewLine+'Se utilizará la predefinida.');
  end;
  With Printer.Canvas do
  begin
    Printer.BeginDoc;
    textout(100,100,'test');
    Printer.EndDoc;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetImpresora('HP Color LaserJet 2600n');
end;
end.