Печать произвольного размера

[HP6720]

Есть задание распечатывать примитивщину "обоями"(произвольной длины) ломаю голову уже с неделю.... Если печатать форму, то форма имеет ограниченные параметры... Посоветуйте что нить.....

[]Wowan[]

юзай модуль Printers, там уже создан экэемпляр для TPrinter, он имеет канву, используй его

[HP6720]

]Wowan[

Есть какой-нибудь пример, чтобы можно б посмотреть .....

[HP6720]

Или может кто набросать простой пример....
Что и где подключать, чтобы можно б использовать класс TPrinter.... подскажите пожалуйста.....

[HP6720]

нашёл)
пасиб, ]Wowan[!!!

Новая проблемка....
Размеры страницы заданы А4, а нужно поменять на А1, может кто сталкивался с такой проблемой.... как понимаю нужно менять свойство в файлике Printers.pas и размеры устанавливаются следующими функциями.... ток что здесь менять на что ....вот в чем вопрос.... что думаете?

function TPrinter.GetPageHeight: Integer;
begin
SetState(psHandleIC);
Result := GetDeviceCaps(DC, VertRes);
end;

function TPrinter.GetPageWidth: Integer;
begin
SetState(psHandleIC);
Result := GetDeviceCaps(DC, HorzRes);
end;

[HP6720]

Есть у кого какие мысли, хелп!

[]Wowan[]

используй свойства PageHeight и PageWidth для высоты и ширины соответственно, в пикселях.