[marcoszorrilla]

Puedes utilizar CutePdfWriter, en realidad es un controlador de impresora y te aparecerá una vez instalado en la lista de impresoras, cualquier documento que imprimas con él te lo transforma automáticamente a PDF.


Yo para buscar una impresora determinada me he construido esta función:

Código Delphi [-]
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
  nCont:=-1;
  Result:=nCont;
  ShowMessage('Impresora no encontrada:'+cNewLine+Impre+cNewLine+'Se utilizará la predefinida.');
  end;
          
end;

Un Saludo.