procedure Tfrm_ged_digitalizacoes_v2.act_imprimirExecute(Sender: TObject);
var
  current_page, i: Integer;
  iIndex: Integer;
  iIEBitmap: TIEBitmap;
  print_ImageEnMView: TImageEnMView;
begin

  print_ImageEnMView := TImageEnMView.Create(nil);

  try

    current_page := ImageEnMView.SelectedImage;

    for i := 0 to ImageEnMView.ImageCount - 1 do begin

      ImageEnMView.SelectedImage := i;

      iIEBitmap := TIEBitmap.Create;

      try

        iIEBitmap.AssignImage(ImageEnMView.IEBitmap);

        if i = current_page then ImageEnVect.DrawObjectsToBitmap(iIEBitmap,True);

        iIndex := print_ImageEnMView.AppendImage;

        // Add the iIEbitmap to the thumbnail
        print_ImageEnMView.SetIEBitmapEx(iIndex, iIEBitmap);
      finally
        iIEBitmap.Free;
      end;

    end;

    print_ImageEnMView.Update;
    print_ImageEnMView.MIO.DoPrintPreviewDialog('Print', True, 'Print Preview', False);
    ImageEnVect.RemoveAllObjects;

  finally
    print_ImageEnMView.Free;
  end;

procedure TForm1.Print1Click(Sender: TObject);
var
  i: Integer;
  iIndex: Integer;
  iIEBitmap: TIEBitmap;
  iImageEnVect: TImageEnVect;
  iImageEnMView: TImageEnMView;
begin
  if Assigned(PageControl1.ActivePage) then
  begin
    iImageEnMView := TImageEnMView.Create(nil);
    try
      for i := 0 to PageControl1.PageCount - 1 do
      begin
        ImageEnVect := TImageEnVect(PageControl1.Pages[i].Controls[0]);
        if Assigned(ImageEnVect) then
        begin
          iIEBitmap := TIEBitmap.Create;
          try
            { Draw the image to the iIEBitmap }
            iIEBitmap.AssignImage(ImageEnVect.IEBitmap);
            { Draw the objects to iIEBitmap }
            ImageEnVect.DrawObjectsToBitmap( iIEBitmap, True );
            iIndex := iImageEnMView.AppendImage;
            { Add the iIEbitmap to the thumbnail }
            iImageEnMView.SetIEBitmapEx(iIndex, iIEBitmap);
          finally
            iIEBitmap.Free;
          end;
        end;
      end;
      iImageEnMView.Update;
      iImageEnMView.MIO.DoPrintPreviewDialog('Print', True,
        'Print Preview', False);
    finally
      iImageEnMView.Free;
    end;
  end;
end;