печать с помощью chartFX (ActiveX)

← →
delphim (2007-01-05 07:24) [0]

Здравствуйте !
Не выполняется печать графика в компоненте ActiveX chartFx.
Вот код:

if not PrintDialog.Execute then exit;
ChartFx.PrintIt;

И никакой ошибки, и никакой печати. Кто знает, что здесь не установлено ?

← →
SergGG © (2007-01-05 09:06) [1]

Попробуй так:

//if not PrintDialog.Execute then exit;
Chartfx.PrintIt;

← →
delphim (2007-01-05 10:04) [2]

SergGG !
Строку
if not PrintDialog.Execute then exit;
я вставил для того, чтобы был выбран объект TPrinter.
Вначале я думал, что ChartFx имеет свой способ выбора принтера, - у него есть метод ChartFx.ShowDialog(nDialog,lExtra); но тип диалога nDialog = [выбор принтера] отсутствует. Есть, например, CDIALOG_EXPORTFILE, CDIALOG_IMPORFILE и т.д. Пробовал и так:
ChartFx.PaintTo(Printer.Handle, 3000, 3000); // это пример из help
Но без результата.

← →
SergGG © (2007-01-05 10:19) [3]

> if not PrintDialog.Execute then exit;
> я вставил для того, чтобы был выбран объект TPrinter.

Помоему можно TPrinter задать:
Uses Printers;

>ChartFx.PaintTo(Printer.Handle, 3000, 3000); // это пример из help

а это у меня работает

← →
delphim (2007-01-06 07:10) [4]

Не хочет печатать.
Не выполняется родной метод Chartfx.PrintIt;
не выполняются и
ChartFx.PaintTo(Printer.Handle, 1200, 1200); // я изменил 3000 -> 1200
СhartFx.Paint(Printer.Handle, 0, 0, 1200, 1200, 1, 0);
При этом, установлено
ChartFx.Style := ChartFx.Style + CST_PRINT;

← →
delphim (2007-01-06 07:26) [5]

В догонку:
Я установил в ОС используемый принтер по умолчанию (своего нет, принтер сетевой). И сработал метод Chartfx.PrintIt ! Нет слов. Неужели в delphi после PrintDialog.Execute
придётся устанавливать выбранный принтер по умолчанию ?

печать с помощью chartFX (ActiveX) Найти похожие ветки