if not imageenvect1.Selected then
  begin
    ShowMessage('Please select an image region');
    exit;
  end;

  tempbmp := TBitmap.Create;
  io := TImageEnIO.Create(self);
  io.AttachedBitmap := tempbmp;
  imageenvect1.CopySelectionToBitmap(tempbmp);
  io.DoPrintPreviewDialog(iedtDialog, '');
  io.free;
  tempbmp.free;

imageenvect1.IO.DoPrintPreviewDialog(iedtDialog,'');

procedure TForm1.PrintSelection1Click(Sender: TObject);
var
  iIEBitmap: TIEBitmap;
  iImageEnIO: TImageEnIO;
begin
  if not ImageEnVect.Selected then
  begin
    MessageBox(0, 'Please select an image region.', 'Warning', MB_ICONWARNING or MB_OK);
    Exit;
  end;
  iIEBitmap := TIEBitmap.Create;
  try
    iImageEnIO := TImageEnIO.Create(nil);
    try
      iImageEnIO.AttachedIEBitmap := iIEBitmap;
      ImageEnVect.CopySelectionToBitmap(iIEBitmap);
      iImageEnIO.DoPrintPreviewDialog(iedtDialog, '');
    finally
      iImageEnIO.Free;
    end;
  finally
    iIEBitmap.Free;
  end;
end;