VPF::Настройка принтера - Форум программистов

L. Joe

Дата 19.2.2003, 05:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 1.2.2003
Где: Москва, м. Севаст опольская

Репутация: нет
Всего: нет

Вот мой код:

Код


var p: TPrinter;
      i: TImage;    
begin
    i := TImage.Create(self);
    p := TPrinter.Create;
    if psdlg.Execute then begin // psdlg - Printer setup dialog
        p.BeginDoc;
        with p do
            try
                <рисование на канве>
            finally
                EndDoc;
            end;
    end;

Но при выборе настроек (например, чёрное - цветное) принтер всё равно печатат со стандартными установками - цветное, худшее качество. Что надо сделать, чтобы настройки подействовали?

Song

Дата 19.2.2003, 05:34 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

А зачем ты создаёшь экземпляр класса TPrinter?
Он создаётся и разрушается в Printers.dcu

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

dr.ZmeY

Дата 19.2.2003, 05:43 (ссылка)

(нет голосов)

Загрузка ...

Политолог

Профиль
Группа: Участник Клуба
Сообщений: 3892
Регистрация: 26.3.2002
Где: ..::STALINGRAD::. .

Репутация: нет
Всего: 60

Используй готовый компонент Дэлфей... PrinterSetupDialog

Код

    Printer.Orientation:=poPortrait;

    if PrinterSetupDialog1.Execute then begin
    with Printer do begin
        BeginDoc;
        QuickRep2.Print;
        EndDoc;
    end; end;

--------------------

Мой блог в ЖЖ

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »