if PrinterSetupDialog1.Execute then
begin
  // Print the image in the center of the page at the original size
  Printer.BeginDoc;
  ImageEnView1.IO.PrintImage(Printer.Canvas, 0, 0, 0, 0, ievpCenter,    
    ievpCenter, iesNormal, 0, 0, 1);
  Printer.EndDoc;

  // Print the image in the center of the page stretched to page dimensions
  (respecting the proportions)
  Printer.BeginDoc;
  ImageEnView1.IO.PrintImage(Printer.Canvas, 0, 0, 0, 0, ievpCenter,  
    iehpCenter, iesFitToPage, 0, 0, 1);
  Printer.EndDoc;

  // Print the image as a poster, four pages wide and six pages high
  Printer.BeginDoc;
  ImageEnView1.IO.PrintImage(Printer.Canvas, 0, 0, 0, 0, ievpCenter, 
    iehpCenter, iesMultiplePages, 4, 6, 1);
  Printer.EndDoc;

  // Print all pages of a TIFF
  Printer.BeginDoc;
  for I := 0 to ImageEnView1.IO.Params.ImageCount - 1 do
  begin
    ImageEnView1.IO.Params.ImageIndex := I;
    ImageEnView1.IO.LoadFromFile('C:\input.tif');
    ImageEnView1.IO.PrintImage(Printer.Canvas);
  end;
  Printer.EndDoc;
end;