VPF::Выбрать нужный принтер.(по умолчанию он установен)

Ner-zul

Дата 13.4.2007, 16:19 (ссылка)

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

Загрузка ...

Бывалый

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

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

Добрый День .

У меня проблема с автоматическим выбором принтера.

У меня есть программа. И я в ней пишу:

Код


with Printer do
  begin
    BeginDoc;
Canvas.StretchDraw(Rect(1040,400,2290,1150),Image1.Picture.Graphic);
   EndDoc;
end;

все это срабатывает по нажатия на кнопку. Проблема в том, что это все дело выводится в файл Microsoft Image редактор. хотя у меня по умолчинию выбран вполне конкретный реальный принтер. И впринципе должно выводить точно на принтер.

Я пробовал решить проблему так:

Код


Printer.SetPrinter('hp LaserJet 1320 PCL 6 on cdrw','WINSPOOL','',GlobalAlloc(GMEM_MOVEABLE,24));

То есть выбрать конкретный принтер и с ним работать. Но выдает ошибку , что не может определить принтер. Странно.. я догадываюсь, что ошибка в параметре GlobalAlloc(GMEM_MOVEABLE,24) . Не подскажите, что можно сделать в такой ситуации...???

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

Ner-zul

Ner-zul

Дата 13.4.2007, 16:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

Так, и этот вопрос все таки удалось решить.

Оказывается достаточно было написать:

Printer.Create;

В начале функции. И все.

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

Ner-zul

MetalFan

Дата 13.4.2007, 16:44 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Ner-zul, имхо бред.
Printer.PrinterIndex := -1;

Это сообщение отредактировал(а) MetalFan - 13.4.2007, 16:47

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

There are always someone smarter than you...

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