// Create a temporary TIEBitmap to hold the flattened image
  TempBitmap := TIEBitmap.Create;
  try
    // Copy the current image (and not the layers) to TempBitmap
    TempBitmap.Assign(ImageEnViewPreview.IEBitmap);

    // Draw all layers onto TempBitmap
    ImageEnViewPreview.LayersSaveMergedTo(TempBitmap);

    // Now TempBitmap contains the "flattened" image
    // create an IO object from TempBitmap:
    var PIO := TImageEnIO.CreateFromBitmap(TempBitmap);
    try
      // now print from the IO object:
      PIO.DoPrintPreviewDialog(iedtDialog);
    finally
      PIO.Free;
    end;
  finally
    // Free the temporary bitmap
    TempBitmap.Free;
  end;