...

          if (sRec.Attr and faDirectory) <> faDirectory then begin
            try
              ImageEnMView2.AppendImage(sRec.Name);
              ImageEnMView2.ImageFileName[ImageEnMView2.ImageCount-1]:=   sRec.Name;
              ImageEnMView2.ImageBottomText[ImageEnMView2.ImageCount-1]:= sRec.Name;
            except
            end;
          end;
...
 
  ImageEnMView2.MIO.DialogsMeasureUnit:=          ieduCm; // A6 105 × 148
  ImageEnMView2.MIO.PrintPreviewParams.Width:=    10.5;
  ImageEnMView2.MIO.PrintPreviewParams.Height:=   14.8;
  ImageEnMView2.MIO.PrintPreviewParams.Position:= ppCenter; 
  ImageEnMView2.MIO.PrintPreviewParams.Size:=     psSpecifiedSize; 
  // Show Hi-Resolution
  ImageEnMView2.MIO.PrintPreviewParams.PrintThumbnails:= False;
  ImageEnMView2.MIO.PrintPreviewParams.ThumbnailStyle:=  ptFlat;
  //
  ImageEnMView2.MIO.PrintPreviewParams.PrintSelected:= True;
  ImageEnMView2.MIO.PrintPreviewParams.DlgMaximized:=  True;
  ImageEnMView2.MIO.DoPrintPreviewDialog('cccc', false, 'Print Preview');