Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2008, 20:02   #1
Proof
Пользователь
 
Регистрация: 20.02.2008
Сообщений: 63
Стрелка Работа с принтером

Как можно програмно выбирать лоток принтера, на котором должна производиться печать документа?!
Proof вне форума Ответить с цитированием
Старый 20.06.2008, 20:23   #2
Proof
Пользователь
 
Регистрация: 20.02.2008
Сообщений: 63
Восклицание Ну и задачка!!!

Значит ни кто с данной проблеммой не сталкивался
Код:
procedure ChangePrinterTray ( Tray: Short );
var 
  ADevice, ADriver, APort: array [0..255] of Char;
  ADeviceMode: THandle;
  DevMode: PDeviceMode;
begin 
  // retrieve current settings 
  Printer.GetPrinter( ADevice, ADriver, APort, ADeviceMode );
  // if we have a DeviceMode 
  if ADeviceMode <> 0 then
   begin
    GlobalUnlock( ADeviceMode );  // unlock it
    DevMode := GlobalLock( ADeviceMode );  // get a pointer to current printer settings 
    DevMode.dmDefaultSource := Tray;  // apply new seting 
    DevMode.dmFields := DevMode.dmFields or DM_DEFAULTSOURCE;  // set the flag of what we will update 
    GlobalUnlock( ADeviceMode );  // unlock devicemode 
    Printer.SetPrinter( ADevice, ADriver, APort, ADeviceMode );  // apply new settings 
  end;
end;
Нашел данную процедуру, вроде она должна позволить выбрать, но что передавать в качестве параметра ума не приложу!!!
Proof вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемма с принтером HP LaserJet 1018. Что делать? SalasAndriy Компьютерное железо 22 09.02.2011 18:29
Помогите проблема с принтером! Filonenko Компьютерное железо 1 18.07.2008 19:55
Помогите плиз с принтером! Ol'ga Компьютерное железо 4 24.06.2008 19:47
проблема с принтером, help me MOBIS_8 Свободное общение 2 09.03.2008 15:34
работа с принтером (ну или что-то подобное) Рустам Win Api 2 03.02.2008 16:24