Man_Without_Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый день! В мемо есть текст, шрифт Courier New. Отображается нормально. Но при печати на XP у заказчика на 4х принтерах выводит иерогливы. На 7ке печатается нормально, у нас на XP тоже. В чем может быть проблема? Delphi 7. Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 14:22 12-05-2015

Sergey250 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Man_Without_Face Может это попробовать добавить в реестр? Подробнее... Всего записей: 2826 | Зарегистр. 12-12-2005 | Отправлено: 14:34 12-05-2015

KDPoid Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Гадать можно долго и разнообразно...   Например, раз Delphi 7, то уникод ваше приложение не поддерживает. А значит, кодовую страницу выбирает исходя из настройки в панели управления "Кодовая страница для программ не поддерживающих уникод". Может быть, у заказчика там корявенько (или более подходяще для его других неуникодных программ) настроено. Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 14:37 12-05-2015

Man_Without_Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вот печать: procedure TfrmViewCheck.PrintMemo(Strings: TStrings);    Var  Prn: TextFile;  i: word; begin   AssignPrn(Prn);     try     Rewrite(Prn);     try       Printer.Canvas.Font := Memo1.Font;       Printer.Canvas.Font.size := 12;       for i := 0 to Strings.Count - 1 do         writeln(Prn, Strings.Strings[i]);     finally       CloseFile(Prn);     end;   except     on EInOutError do       MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);   end;   end; Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 15:04 12-05-2015

KDPoid Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ну раз так, то есть ещё предположение... А шрифт из Memo1 присутствует в Printer.Fonts ? Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 18:43 12-05-2015

KDPoid Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору NeoAnomaly, Семёрки под рукой нет, так что, между нами - теоретиками...   Насколько помню, Printer.Fonts возвращает список доступных в системе шрифтов. Т.е. если Courier New снесён в винде, то его и не будет в списке, а для вывода винда попытается подобрать наиболее похожий, руководствуясь записями в FontSubstitutes и внутренним чувством справедливости.   Так что, я бы в такой ситуации всё равно проверил, есть ли шрифт на машине и действительно ли мы пытаемся печатать "Courier New", а не "Courier", или "Courier New Cur", или ещё чем...   В общем, что-то типа: Код:   if Printer.Fonts.IntexOf(Memo1.Font.Name) = -1 then MessageBox(0,'Вот вы верили людям, а шрифт кто-то спёр...','Как же так ?!?!?!',MB_OK);   Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 06:48 13-05-2015

Man_Without_Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Man_Without_Face в кракозябры превращается вообще любой текст или только кириллица? Только кириллица. Настройки принтера они категорически отказываются менять.   Добавлено: Цитата: Так что, я бы в такой ситуации всё равно проверил, есть ли шрифт на машине Шрифт есть. Принтера HP, скорее всего принтер подсовывает свой шрифт, это можно отключить в настройках, но как писал выше, настройки трогать нельзя. Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 09:04 13-05-2015 | Исправлено: Man_Without_Face, 09:04 13-05-2015

KDPoid Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Man_Without_Face   А если попробовать вот так ? Код:   procedure TfrmViewCheck.PrintMemo(Strings: TStrings);    Var    i: word;    h : integer; begin     try         Printer.BeginDoc;       Printer.Canvas.Font := Memo1.Font;         Printer.Canvas.Font.size := 12;         h := (5+Printer.Canvas.TextHeight);       for i := 0 to Strings.Count - 1 do           Printer.Canvas.TextOut(10,10+i*h,Strings.Strings[i]);       Printer.EndDoc;   except       on EInOutError do         MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);     end;     end;   Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 15:05 13-05-2015

protoror Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору было похожее, вылечил просто правильными дровами http://dzo-kostroma.ru/component/content/article/154-softfaq/7838-faqkorvet.html#anchor9 Всего записей: 494 | Зарегистр. 23-11-2009 | Отправлено: 15:34 13-05-2015

NightSpawn Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Сталкивался с чем-то подобным, спасла снятая галочка в настройках принтера "Включить дополнительные возможности печати". Правда там 1С было, но.. Бумаги попортили знатно, пока разобрались. Всего записей: 87 | Зарегистр. 01-01-2007 | Отправлено: 04:24 15-05-2015

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » На XP не печатает Courier New

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование