Фоновая печать карты.

constructor TMapPrinter.create(form: IMain);
begin
  try

    fMap := form.getMap;

    fGISFORMS := sGISPRINT;
    fHDll := LoadLibrary(PChar(fGISFORMS));  // 01/08/2012
    if fHDll<>0 then begin
      fPFuncDlg := Dll_prnMapPrintTitle(GetProcAddress(fHDll,PChar(NameFuncDlg)));
    end;

    fHPrinter := prnLoadPrinter();

    FillChar(fPrintParm, sizeof(TMAPPRINTPARMEX), 0);
    fPrintParm.Length := sizeof(TMAPPRINTPARMEX);
    fPrintParm.Copies := 1;
    fPrintParm.Regime := byte(MPR_INITPARM);
    fPrintParm.TypePrint := MPT_NORMAL;
    fPrintParm.Preview := MPV_MAP;
    fPrintParm.TypeOutput := MPO_RASTERIAL;
//    fPrintParm.Handle := form.getHandle;
    fPrintParm.Handle := form.getHandle;
    fPrintParm.FitToPage := MPF_SPLITTOPAGES;

    FillChar(taskParm, sizeof(TTASKPARM), 0);
    taskParm.Language := 2;
    taskParm.Handle := form.getHandle;
    taskParm.ApplicationName := 'Печать карты';

    isFirstPrint := True;

  except
    on e: Exception do AddLogInfo(LOG_MAIN, 'TMapPrinter.FormCreate: ' + e.Message);
  end;
end;

    ownerMap.MapOpen(listPath, true);

    try
     здесь находим объект рамку печати и помещаем его в структуру TMapDFrame
     
      objFrame := Obj.ObjFrame;
     
//      ownerMap.appendSite(aMapFileName);
      ownerMap.getMapView.PrintSelect.ClearAll;
      mapScale := ownerMap.getMapView.MapScale;
      mapPrinter.StartBackGroundPrintActExecute(objFrame, mapScale);
    finally
//      ownerMap.MapClose;
    end;

procedure TMapPrinter.StartBackGroundPrintActExecute(aFrame: TMAPDFRAME; aScale: Integer);
var
  ret: Integer;

begin
  try

    if (not fMap.getMapView.Active) or
      (fHDll = 0) or
      (Not Assigned (fPFuncDlg))
      then exit;


    if isFirstPrint then begin
      fPrintParm.Regime := byte(MPR_INITPARM);
      isFirstPrint := False;
      ret := fPFuncDlg(fmap.MapHandle, fhPrinter, fPrintParm, taskparm, '');
    end;

    fPrintParm.Regime := byte(MPR_PRINTONLY);

    fPrintParm.PlaneFrame.X1 := aFrame.X1;
    fPrintParm.PlaneFrame.Y1 := aFrame.Y1;
    fPrintParm.PlaneFrame.X2 := aFrame.X2;
    fPrintParm.PlaneFrame.Y2 := aFrame.Y2;
    fPrintParm.Scale := aScale;

    ret := fPFuncDlg(fmap.MapHandle, fhPrinter, fPrintParm, taskparm, '');

  except
    on e:Exception do AddLogInfo(LOG_MAIN, 'TMapPrinter.PrinterSettingsExecute: ' + e.Message);
  end;
end;