Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 421

Раздел: Delphi » Работа с устройствами и "железом"
/ вопрос открыт /

Уважаемые Экперты Подскажите пожалуйста !
Как отпечатать print-ом то что печатается через LPT
и не печатается если Print подключен к USB
Исходник прилагается (скачан где то в примерах )

Приложение:
  1.  
  2. procedure TForm1.Print1ClickClick(Sender: TObject);
  3. var
  4. AspectRatio: Single;
  5. OutputWidth, OutputHeight: Single;
  6. begin
  7. if not PrintDialog1.Execute then Exit;
  8. Printer.BeginDoc;
  9. try
  10. OutputWidth := Image.Picture.Width;
  11. OutputHeight := Image.Picture.Height;
  12. AspectRatio := OutputWidth / OutputHeight;
  13. if (OutputWidth < Printer.PageWidth) and
  14. (OutputHeight < Printer.PageHeight) then
  15. begin
  16. if OutputWidth < OutputHeight then
  17. begin
  18. OutputHeight := Printer.PageHeight;
  19. OutputWidth := OutputHeight * AspectRatio;
  20. end
  21. else
  22. begin
  23. OutputWidth := Printer.PageWidth;
  24. OutputHeight := OutputWidth / AspectRatio;
  25. end
  26. end;
  27. if OutputWidth > Printer.PageWidth then
  28. begin
  29. OutputWidth := Printer.PageWidth;
  30. OutputHeight := OutputWidth / AspectRatio;
  31. end;
  32. if OutputHeight > Printer.PageHeight then
  33. begin
  34. OutputHeight := Printer.PageHeight;
  35. OutputWidth := OutputHeight * AspectRatio;
  36. end;
  37. Printer.Canvas.StretchDraw(Rect(0,0,
  38. Trunc(OutputWidth), Trunc(OutputHeight)),
  39. Image.Picture.Graphic);
  40. finally
  41. Printer.EndDoc;
  42. end;
  43. end;


Алиев Шамсидин Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Алиев Шамсидин (статус: Посетитель)
Вопрос отправлен: 22 марта 2007, 10:20
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Print - это принтер?
Код вроде стандартный. МОжет драйвера неккоресктно настроены. Word и другие проги печатают?

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 22 марта 2007, 11:08
Оценка за ответ: 4

Ответ #2. Отвечает эксперт: Новаковский Юрий Аврамович

Здравствуйте, Алиев Шамсидин!
Надо понимать, что один и тотже принтер печатает, когда подключен к LPT, и не печатает когда подключен к USB?
Если так, то это ДВА РАЗНЫХ принтера, и должно быть два комплекта драйверов, хотя в сущности это один тотже драйвер, но настройки разные.
Наверное можно перестроить, но это искать на Ж...
приключений. А Delphi тут не причем.
Подключите принтер к USB и поставте драйвера.
Удачи Вам!

Ответ отправил: Новаковский Юрий Аврамович (статус: 4-ый класс)
Время отправки: 22 марта 2007, 19:10
Оценка за ответ: 3


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 26 марта 2007, 10:59; участников в обсуждении: 2.
Алиев Шамсидин

Алиев Шамсидин (статус: Посетитель), 24 марта 2007, 07:17 [#1]:

Извините пожалуйста ! Драйвера установлены Ok
Word печатает а на Delphi прогоняется чистий лист ?
Новаковский Юрий Аврамович

Новаковский Юрий Аврамович (статус: 4-ый класс), 26 марта 2007, 10:59 [#2]:

Приведите, пожалуйста, пример программы.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 07:17
Выполнено за 0.02 сек.