Печать формы

[♠STO♠]

Вот у меня такой очень интересный вопрос как вывести на печать все что находится на форме(каринки, текст). Я пользовался примером из учебника, но при нажатии ниче не происходит.

procedure TForm2.Button1Click(Sender: TObject);
var
i, start, stop:integer;
begin
printDialog1.Options := [poPageNums, poSelection];
printDialog1.FromPage := 1;
printDialog1.ToPage:=Pagecontrol1.PageCount;
printDialog1.MinPage:=1;
printDialog1.MinPage:=pagecontrol1.PageCount;
if not PrintDialog1.Execute then exit;

if printDialog1.PrintRange = prAllPages then
begin
Start:=Printdialog1.MinPage -1;
Stop:=Printdialog1.MaxPage - 1;
end
else
if Printdialog1.PrintRange = prSelection then
begin
Start:= PageControl1.ActivePageIndex;
Stop:= Start;
end
else
begin
Start:= Printdialog1.FromPage - 1;
Stop := Printdialog1.ToPage - 1;
end;
Printer.BeginDoc;
for i:= Start to Stop do
begin
Pagecontrol1.Pages[i].PaintTo(Printer.Handle, 10,10);
if i <> Stop then
Printer.NewPage;
end;
Printer.EndDoc;
end;

Подскажите пожалуйста!

[Квэнди]

в аттаче пример.

[♠STO♠]

можешь выложить куда-нибуть в другое место...у меня прав нет для скачки

[Квэнди]

http://narod.yandex.ru/cgi-bin/yandm...=1915249040&p=

[SERG1980]

form1.Print;

[♠STO♠]

Чтобы новую тему не создавать еще один ламерский вопрос:
Как мне добавить кэпшн из лейбла , скажем,в 5ую строку и после 5ого символа вордовского файла(.doc)!
Напишите пожалуйста подробный ответ, я думаю это многим начинающим пригодится!

[Квэнди]

Один вопрос одна тема. Тема закрыта