TQuickReport
От: WILD Arg Россия  
Дата: 27.07.02 07:41
Оценка:
Надо перед печатью отчета вывести ПринтДиалог...
делаю:

QRPreview.QRPrinter.PrintSetup;
QRPreview.QRPrinter.Print;

Нормально все печатает, нужное кол-во копий, нужные страницы и все такое.....только вот если в Диалоге нажать Cancel то все равно печатается....
в принципе, понятно почему печатает...так код написан...но как сделать проверку на отмену печати?
Только массовые расстрелы спасут Родину!
Re: TQuickReport
От: Аноним  
Дата: 27.07.02 12:16
Оценка:
Здравствуйте WILD Arg, Вы писали:

WA>Надо перед печатью отчета вывести ПринтДиалог...

WA>делаю:

WA>QRPreview.QRPrinter.PrintSetup;

WA>QRPreview.QRPrinter.Print;

WA>Нормально все печатает, нужное кол-во копий, нужные страницы и все такое.....только вот если в Диалоге нажать Cancel то все равно печатается....

WA>в принципе, понятно почему печатает...так код написан...но как сделать проверку на отмену печати?

Не знаяю как в Дельфи, но в Билдере я бы пропробовал

if (QRPreview->QRPrinter->PrintSetup())
QRPreview->QRPrinter->Print;
Re[2]: TQuickReport
От: WILD Arg Россия  
Дата: 29.07.02 05:07
Оценка:
Здравствуйте Аноним, Вы писали:

А>Не знаяю как в Дельфи, но в Билдере я бы пропробовал


А> if (QRPreview->QRPrinter->PrintSetup())

А> QRPreview->QRPrinter->Print;

Оюижаете....так бы и я попробовал

if QRPreview.QRPrinter.PrintSetup then QRPreview.QRPrinter.Print

но все дело в том, что PrintSetup — это процедура и она не возвращает логического результата.
Только массовые расстрелы спасут Родину!
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.