image. печать большого изображения на нескольких листах

[OLEG'arh]

я за раннее не знаю Width и Height

я хочу распечатать изображение на round(image1.Width/Х) страницах, где Х некий лимит (также и по Height)

допустим у меня большая "картинка" такая что займёт 6 листов по шрине(х) А4 и 3 по высоте(y), как это реализовать???
использую image.

на одном листе использую такой код

var   
    C: real;   
    R: TRect;   
begin   
   if printersetupdialog1.Execute then   
      begin   
        C:=Printer.PageWidth/image1.Width;   
        showmessage(inttostr(round(Printer.PageWidth)));   
        Printer.BeginDoc;   
        R := Rect(0, 0, round(image1.Width * C), round(image1.Height * C));   
        Printer.Canvas.CopyRect(R,image1.Canvas,image1.Canvas.ClipRect);   
        Printer.EndDoc;   
      end   
end;

P.S. изображением является большой график который рисует прога

[Flenov]

Размеры страницы известная величина, а значит, ты можешь с помощью CopyRect скопировать размер

Rect(0, 0, Min(Printer.PageWidth, image1.Width), Min(image1.Height, Printer.PageHeight))

Теперь создаешь новую страницу (что-то типа Printer.StartPage) и на нее выводишь следующий отрывок картинки. Банальная математика.