VPF::Delphi - Двухсторонняя печать - Форум программистов

Antixrist

Дата 1.9.2006, 02:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ Такой вопрос: Как в дельфи настроить принтер на двухстороннюю печать....?

То есть по нажатию кнопки у меня сразу должна идти двухсторонняя печать, чтобы пользователю не надо было каждый раз выбирать в настройках принтера эту галочку (печать с двух сторон)

Snowy

Дата 1.9.2006, 08:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Смотри в инструкции к принтеру комманду двухсторонней печати и шли её в порт принтера.
Как слать в порт - посмотри в FAQ в разделе "Печать".

gonzales

Дата 1.9.2006, 11:24 (ссылка)

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

Загрузка ...

Бывалый

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

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

посмотри такой код, я менял им размер бумаги на плоттере

Код


procedure Tform1.Changepaper;
var
  ADevice, ADriver, APort: array[0..255] of char;
  ADeviceMode: THandle;
  DevMode: PDevMode;
  papermmx, papermmy: Extended;
begin
  with Printer do
  begin

   // GetPrinter(ADevice, ADriver, APort, ADeviceMode);
  //  SetPrinter(ADevice, ADriver, APort, 0);
    GetPrinter(ADevice, ADriver, APort, ADeviceMode);
    DevMode := GlobalLock(ADeviceMode);
    if not Assigned(DevMode) then
      ShowMessage('не могу установить принтер')
    else
    begin
      with DevMode^ do
      begin
        {применяем здесь любые настройки  }
        dmPaperSize := DMPAPER_USER;
        dmPaperLength:=form1.im_height*10;
        dmPaperWidth:=form1.im_widht*10;
     // переменная DevMode содержит настройки печати, для двусторонней печати - это наверное dmDuplex 

      end;
        SetPrinter(ADevice, ADriver, APort, ADeviceMode);
      GlobalUnlock(ADeviceMode);

    end;
  end;

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

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

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