Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > QuickReport 5.04 и Delphi 2009 - печать док-ов

Автор: PingWiN0x20 14.12.2008, 23:50

Приветствую всех участников форума!

Задача "Печать отчета".

Дано: QuickReport 5.04 - 1 шт., Delphi 2009 - 1 шт., ОС Vista SP1 - 1 шт, принтер Samsung ML-1520P - 1 шт.

Задача: распечатать хоть бы что-нибудь через TQuickRep.

Пояснения: при выполнении следующего участка кода не происходит ровным счетом ничего. Принтер не шевелится. Даже иконка принтера в трее не появляется.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
   QuickRep1.Prepare;
   QuickRep1.Print;
end;

На форуме нашел одно якобы решение. Попоробовал - принтер схавал бумагу и выплюнул ее абсолютно чистенькой. Вот оно:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
   QuickRep1.Prepare;
   QuickRep1.QRPrinter.Print;
   QuickRep1.QRPrinter.Free;
   QuickRep1.QRPrinter := nil;
end;

Помогите решить задачку!
Очень надо!

Автор: PingWiN0x20 16.12.2008, 12:38

ну неужели никто не знает?????