procedure TFormPrintPreview.PaintThumbnails;
var
  iMaxBitmapWidth: Integer;
  { Maximum destination bitmap width. Preview will be stretched
    to match this size }
  iMaxBitmapHeight: Integer;
  { Maximum destination bitmap height. Preview will be stretched
    to match this size. }
  iPrinter: TPrinter;
  { This is the Printer object. PreviewPrintImage need it to know
    printer settings as orientation or page sizes. }
  iColumns: Integer; { Specifies how arrange images, specifying the number of
    columns. }
  iRows: Integer;
  { Specifies how arrange images, specifying the number of rows. }
  iHorizSpace: double; { The horizontal space in inches between images. }
  iVertSpace: double; { The vertical space in inches between images. }
  iPrintSelected: Boolean; { Set to true to print only selected images. }
  iMarginLeft: double;
  { Page left margin in inches. By specifying all zero values, no
    margins are used. }
  iMarginTop: double;
  { Page top margin in inches. By specifying all zero values, no margins
    are used. }
  iMarginRight: double;
  { Page right margin in inches. By specifying all zero values, no
    margins are used. }
  iMarginBottom: double;
  { Page bottom margin in inches. By specifying all zero values,
    no margins are used. }
  iDrawBox: Boolean;
  { Set to true to draw a box around the images (image space). Image is
    always stretched to maintain aspect ratio. }
  iDrawText: Boolean; { Set to true to draw text associated with every image. }
  iDrawShadow: Boolean; { Set to true to draw a shadow around the image. }
  iBoxColor: TColor;
  { Specifies the color of the box around the image if DrawBox
    is True. }
  iPageNo: Integer;
  { The page of thumbnails to preview.  0 shows the first page, 1 the second, etc. }
  iPages: double;
  iCells: Integer;
begin
  iMaxBitmapWidth := ImageEnView1.IEBitmap.Width;
  iMaxBitmapHeight := ImageEnView1.IEBitmap.Height;
  iPrinter := Printer;
  iColumns := StrToIntDef(Columns1.Text, 2);
  iRows := StrToIntDef(Rows1.Text, 2);
  iHorizSpace := IEStrToFloatDefS(HorizSpace1.Text, 0);
  iVertSpace := IEStrToFloatDefS(VertSpace1.Text, 0);
  iPrintSelected := DisplaySelected1.Checked;
  iMarginLeft := IEStrToFloatDefS(VertSpace1.Text, 0);
  iMarginTop := IEStrToFloatDefS(VertSpace1.Text, 0);
  iMarginRight := StrToIntDef(VertSpace1.Text, 0);
  iMarginBottom := StrToIntDef(VertSpace1.Text, 0);
  iDrawBox := DrawBox1.Checked;
  iDrawText := DrawText1.Checked;
  iDrawShadow := DrawShadow1.Checked;
  iBoxColor := BoxColor1.Color;
  iPageNo := StrToIntDef(Page1.Text, 0) - 1;
  iCells := iRows * iColumns;
  ImageEnMView1.MIO.PreviewPrintImages(ImageEnView1.Bitmap, iMaxBitmapWidth,
    iMaxBitmapHeight, iPrinter, iColumns, iRows, iHorizSpace, iVertSpace,
    iPrintSelected, iMarginLeft, iMarginTop, iMarginRight, iMarginBottom,
    iDrawBox, iDrawText, iDrawShadow, iBoxColor, iPageNo);
  ImageEnView1.Update;
  if iPrintSelected then
    iPages := ImageEnMView1.MultiSelectedImagesCount / iCells
  else
    iPages := ImageEnMView1.ImageCount / iCells;
  if (iPages = 0) and (iCells > 0) then
    iPages := 1;
  UpDown3.Max := Round(iPages);
  UpDown3.Min := 1;
  Caption := 'Print Preview Page ' + IntToStr(iPageNo + 1) + ' of ' +
    IntToStr(Round(iPages));
  Previous1.Enabled := iPageNo <> 0;
  Next1.Enabled := UpDown3.Position <> UpDown3.Max;
end;