var TP : TPrinter;
    PNum : integer;
begin
   fom_Rpt_ := Tfom_Rpt_.Create(Self);
   TP := TPrinter.Create;
   try
      PNum := TP.Printers.IndexOf('Regist');
      fom_Rpt_.PrinterSettings.PrinterIndex := 0;
      if PNum <> -1 then
         fom_Rpt_.PrinterSettings.PrinterIndex := PNum
      else
         fom_Rpt_.PrinterSettings.PrinterIndex := TP.PrinterIndex;
      fom_Rpt_.Print;
   finally
      FreeAndNil(fom_PreCheck_Rpt_);
      TP.Free;
   end;
end;