Проблема с печатью

В своей программе я организовал печать, используя объект Printer, чтобы была возможность печати различными шрифтами. Данные в объект Printer вношу из компонента Memo со всеми перерасчётами, учитывая разрешение принтера. Печать проходит нормально, но принтер печатает только одну страницу! Всё что на неё не поместилось, просто не печатается.
Как организовать печать нескольких страниц?
Заранее спасибо!:)