ievMain.SaveToFileAll('Page001.afl', -1);

  ievMain.LayersCurrent := 0; // Select Background Layer

  ShowMessage('Total Layers: ' + IntToStr(ievMain.LayersCount));

  ievMain.Proc.SaveUndo();
  ievMain.LayersMergeAll();

  //Resize merge layer image to a smaller size
  ievMain.Proc.Resample(300, -1, TResampleFilter(rfBSpline));
  ievMain.IO.SaveToFileJpeg('Page001.jpg');

  //Restore the state of ImageEnVect to state before we merged all layers
  ievMain.Proc.Undo(False);

  ievMain.UnLockUpdate;
  ievMain.Update;
  ShowMessage('Total Layers: ' + IntToStr(ievMain.LayersCount));
  ievMain.MouseInteract := [miMoveLayers, miResizeLayers];

procedure TForm1.SaveAll1Click(Sender: TObject);
var
  iImageEnView: TImageEnView;
begin
  iImageEnView := TImageEnView.Create(nil);
  try
    { Draw the layers to iImageEnView }
    ImageEnVect1.UnSelAllObjects;
    { Draw the layers and objects to iImageEnView }
    ImageEnVect1.LayersDrawTo(iImageEnView.IEBitmap);
    iImageEnView.Update;
    {Resample the iImageEnView}
    iImageEnView.Proc.Resample(300, -1, TResampleFilter(rfBSpline));
    { Save the image}
    iImageEnView.IO.SaveToFileJpeg('G:\Scrap\MergeAll.jpg');
  finally
    iImageEnView.Free;
  end;
end;

procedure TForm1.Print1Click(Sender: TObject);
var
  iImageEnView: TImageEnView;
begin
  iImageEnView := TImageEnView.Create(nil);
  try
    { Draw the layers and objects to iImageEnView }
    ImageEnVect1.LayersDrawTo(iImageEnView.IEBitmap);
    iImageEnView.Update;
    iImageEnView.IO.DoPrintPreviewDialog();
  finally
    iImageEnView.Free;
  end;
end;