Не идет печать из preview в QRPrinter

← →
mefodiy (2013-05-01 11:38) [0]

Вот кусок кода:

with QRPrinter do
begin
BeginDoc;
.........
EndDoc;
PreviewModal;
end;

Экран предварительного просмотра нормально открывается. Отчет нормально просматривается. Но при попытке печати на экране мелькает прогресбар и ничего не печатается.
В то же время, если PreviewModal заменить на Print, то печать нормально идет.

Может кто встречался?
Спасибо

← →
Kilkennycat © (2013-05-01 12:22) [1]

приведенный код неинформативен. как минимум, не показано создание и уничтожение объекта TQuickRep, не указана версия.

← →
Anatoly Podgoretsky © (2013-05-01 13:58) [2]

> Kilkennycat (01.05.2013 12:22:01) [1]

Да писал бы прямо – мусор,
было бы понятнее.

← →
mefodiy (2013-05-01 14:14) [3]

Если PreviewModal заменить на Print, то печать нормально идет

← →
Kilkennycat © (2013-05-01 14:31) [4]

> mefodiy (01.05.13 14:14) [3]

есть какой-то великий смысл дважды повторять одно и то же?

← →
Kilkennycat © (2013-05-01 14:34) [5]

> Anatoly Podgoretsky © (01.05.13 13:58) [2]

дык ведь запрещены же правилами оскорбления.

← →
Германн © (2013-05-01 14:53) [6]

А нафига там какие-то
BeginDoc; ......... EndDoc;?

← →
Anatoly Podgoretsky © (2013-05-01 15:10) [7]

> Kilkennycat (01.05.2013 14:34:05) [5]

А ты не оскорбляй

← →
Kilkennycat © (2013-05-01 16:52) [8]

> Anatoly Podgoretsky © (01.05.13 15:10) [7]

Ок. Тогда так:
Вышеприведенный код, как подсказал Анатолий Подгорецкий, мусор!
:)

← →
mefodiy (2013-05-03 09:14) [9]

Проблема возникает в "Delphi 2010". В "Delphi 7" все нормально работает.

← →
Kilkennycat © (2013-05-03 10:25) [10]

> mefodiy (03.05.13 09:14) [9]

спасибо.

← →
brother © (2013-05-03 10:27) [11]

записал...

← →
mefodiy (2013-05-04 08:22) [12]

Мастера, не поленитесь выполнить код
uses ...QRPrntr, Printers;

procedure TForm1.Button1Click(Sender: TObject);
begin
with QRPrinter do
begin
Cleanup;
Orientation := poPortrait;
PaperSize := A4;
BeginDoc;
NewPage;
Canvas.Font.Charset := DEFAULT_CHARSET;
Canvas.Font.Name := "Arial";
Canvas.Font.Size := 20;
Canvas.Font.Style := [];
Canvas.TextOut(100,100,"Hello world!");
EndDoc;
PreviewModal;
end;

У меня появляется маленькое окно. При нажатии на кнопку "Print" мелькает прогресбар и ничего не печатается. В то же время, если наменить PreviewModal на Print, то печать идет нормально.

Объясните и помогите учитывая, что это ветка форума для начинающих.
Да, и, пожалуйста, без упражнений в остроумии.

← →
Kilkennycat © (2013-05-04 14:27) [13]

> без упражнений в остроумии.

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

> это ветка форума для начинающих.

ты 6 лет назад уже задавал подобные вопросы, может, пора вылазить из пеленок?
читай http://ln.com.ua/~openxs/articles/smart-questions-ru.html

← →
Германн © (2013-05-04 14:34) [14]

> Объясните и помогите учитывая, что это ветка форума для
> начинающих.

Нафига тебе ТQRPrinter? Работай непосредственно с TPrinter.

И вообще, непонятно, что является целью всего этого? QR, насколько я помню, имеет несколько другие методы вывода информации, ты его с TPrinter не путаешь?

> ты 6 лет назад уже задавал подобные вопросы, может, пора
> вылазить из пеленок?

Если за 6 лет не получилось, почему ты думаешь что сейчас будет наоборот

Если нужен именно Quick Report, то вот тут http://www.quickreport.co.uk/FAQs.aspx есть пример Wild Report - drawing directly on the report

> mefodiy (03.05.13 09:14) [9]
>
> Проблема возникает в "Delphi 2010". В "Delphi 7" все нормально
> работает.
>

А разве в Д2010 всё ещё был "встроенный" Quick Report?

Про "встроенный" вроде бы и речи не было.

← →
mefodiy (2013-05-06 14:31) [20]

Нужно было добавить перед PreviewModal

PrintMetafileFromPreview := True;

Всем большое спасибо за огромную помощь.

Не идет печать из preview в QRPrinter Найти похожие ветки