Перестал сохраняться растр в Emf

Денис, здравствуйте!

Интуитивно так и думал, что такой будет ответ.
Но у нас в классификаторе объектов принтерный вид объектов отличается от
обычного вида и нам очень принципиально, чтобы печаталось именно в принтерном виде.
Как быть? Нам это нужно очень срочно, сдаем проект.

Согласились с вашим вариантом.

FillChar(parm, SizeOf(TMETAFILEBUILDPARMEX),0);

with parm do
begin
Frame.X1 := form_main.MapSelectRect1.FPoint4.X;
Frame.Y1 := form_main.MapSelectRect1.FPoint4.Y;
Frame.X2 := form_main.MapSelectRect1.FPoint2.X;
Frame.Y2 := form_main.MapSelectRect1.FPoint2.Y;
Scale     := form_main.mvMap.ViewScale;
// VisualType:= cVT_PRINTEX;
VisualType:= cVT_SCREEN;
Border    :=0;
DontClip  :=0;
Black     :=0;
end;

parm.Intensity := 70;
form_main.mvMap.SaveFrameToEmfEx(NameEmf, parm);

Результат тот же.
Подгруженного растра rsw нет.

FillChar(parm, SizeOf(TMETAFILEBUILDPARMEX),0);

with parm do
begin
Frame.X1 := form_main.MapSelectRect1.FPoint4.X;
Frame.Y1 := form_main.MapSelectRect1.FPoint4.Y;
Frame.X2 := form_main.MapSelectRect1.FPoint2.X;
Frame.Y2 := form_main.MapSelectRect1.FPoint2.Y;
Scale     := form_main.mvMap.ViewScale;
// VisualType:= cVT_PRINTEX;
VisualType:= cVT_PRINTCONTOURRST;
Border    :=0;
DontClip  :=0;
Black     :=0;
end;

parm.Intensity := 70;
form_main.mvMap.SaveFrameToEmfEx(NameEmf, parm);

Так тоже растра нет.

Может я что не правильно делаю?
Что еще можно попробовать?

Денис, спасибо!
Все заработало.