Печать бланка в Data Report

[bvv70]

Необходимо с предпросмотром распечатать бланк. Кажется проще всего это сделать с Data Report. Из фигур рисуем бланк в Section4 (или вставляем его туда рисунком). Затем всего лишь надо передать значение Text1.Text на Form1 в Label1.Caption (Data Report1). Т.е. никаких БД. Если не затруднит помогите с кодом.

[shady]

with Data Report1
.Label1.Caption=Form1.Text1.Text
.... это если че-нить еще надо написать
.show
endwith

[Twister]

shady
1. Для чего придумали теги форматирования?
2. endwith пишется раздельно...

[bvv70]

Уважаемые, я как бы это сказать... сильно начинающий. Соображения подключить Microsoft Active Data Object у меня хватает, а вот почему не работает код не знаю. Поправте пожалуйста.
Private Sub Command1_Click()
With DataReport1
DataReport1.Label1.Caption = Form1.Text1.Text
DataReport1.Show
End With
End Sub

[bvv70]

Ну потратьте две минуты, объясните что к чему!