Delphi - это просто. Урок 8.11.7: Программируем создание и печать накладных.
Часть 7. Делаем кнопку "Печать"
Что бы смотреть урок полностью, подпишитесь на платный раздел.
В платном разделе статья находиться здесь.
Исходники к уроку вы можете скачать в платном разделе.
Мы закончили интерфейс добавления и редактирования накладных. Теперь, наконец то, реализуем печать накладной. Для этого мы используем FreeReport (см. урок 8.10, урок 8.10.1, урок 8.10.2 и урок 8.10.3. И так, подключим к проекту FreeReport. В секции uses основной формы укажем модули FreeReoprt-а...
....
.... Соответственно, нам надо переписать обработчик события acDocsExecute:
|
procedure
TfrmStoreForm.acDocsExecute(Sender:
TObject); begin
frmDocs.WaresFields:=WaresFields;
frmDocs.Show; end; |
....
...Теперь создадим новый акшен, и пункт меню "Дизайнер печатной формы" (см. урок 8.5.1)*:
Реализуем обработчик этого акшена...
...
... Ну, и последний штрих, кнопочка печать*:
...
...У вас появляется окно предварительного просмотра**:
Из которого, при желании, вы можете распечатать это на принтере. Конечно, то что мы получили это еще не накладная, это только так мы "поизвращались", но уже смогли напечатать таблицу товара, который содержится в документе. В следующих уроках будем постепенно доводить наш макет до реальной формы документа.
Исходники к уроку вы можете скачать в платном разделе.
Скриншоты, помеченные знаком* , являются цитатами и иллюстрациями программного продукта "Turbo Delphi", авторское право на который принадлежит фирме "Borland Delphi".
Скриншоты, помеченные знаком** , являются цитатами и иллюстрациями программного продукта "Free report", авторское право на который принадлежит "Fast Reports Inc" (Tzyganenko A.)