Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

mefodiy © (2013-05-01 11:38:00)
Вот кусок кода:

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

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

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

mefodiy (2013-05-06 14:31:00) [1]
Нужно было добавить перед PreviewModal

PrintMetafileFromPreview := True;

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

Anatoly Podgoretsky (2013-05-05 09:59:00) [2]
Про "встроенный"вроде бы и речи не было.

Германн (2013-05-05 03:12:00) [3]

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

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

Германн (2013-05-04 14:51:00) [4]
Если нужен именно Quick Report, то вот тут http://www.quickreport.co.uk/FAQs.aspxесть пример Wild Report - drawing directly on the report

Anatoly Podgoretsky (2013-05-04 14:37:00) [5]

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

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

Kilkennycat (2013-05-04 14:35:00) [6]
И вообще, непонятно, что является целью всего этого? QR, насколько я помню, имеет несколько другие методы вывода информации, ты его с TPrinter не путаешь?

Германн (2013-05-04 14:34:00) [7]

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

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

Kilkennycat (2013-05-04 14:27:00) [8]

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

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

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

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

mefodiy (2013-05-04 08:22:00) [9]
Мастера, не поленитесь выполнить код
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, то печать идет нормально.

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

brother (2013-05-03 10:27:00) [10]
записал...

Kilkennycat (2013-05-03 10:25:00) [11]

> mefodiy (03.05.13 09:14) [9]

спасибо.

mefodiy (2013-05-03 09:14:00) [12]
Проблема возникает в "Delphi 2010". В "Delphi 7" все нормально работает.

Kilkennycat (2013-05-01 16:52:00) [13]

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

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

Anatoly Podgoretsky (2013-05-01 15:10:00) [14]
> Kilkennycat (01.05.2013 14:34:05) [5]

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

Германн (2013-05-01 14:53:00) [15]
А нафига там какие-то
BeginDoc; ......... EndDoc;?

Kilkennycat (2013-05-01 14:34:00) [16]

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

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

Kilkennycat (2013-05-01 14:31:00) [17]

> mefodiy (01.05.13 14:14) [3]

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

mefodiy (2013-05-01 14:14:00) [18]
Если PreviewModal заменить на Print, то печать нормально идет

Anatoly Podgoretsky (2013-05-01 13:58:00) [19]
> Kilkennycat (01.05.2013 12:22:01) [1]

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

Kilkennycat (2013-05-01 12:22:00) [20]
приведенный код неинформативен. как минимум, не показано создание и уничтожение объекта TQuickRep, не указана версия.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »