Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прогон бумаги в матричном принтере [D7, WinXP]


John_Sokolov ©   (2005-10-04 13:23:00) 

Как избавиться от прогона бумаги в матричном принтере типа EPSON?


ANB   (2005-10-05 17:44:00) [1]


> John_Sokolov   (05.10.05 15:12) [7]

У некоторых моделей матричных епсонов неплохо слазить в его родные настройки (джамперами или кнопками). Там иногда стоит всякая ерунда, типа пропуск перфорации. Попробуй прогнать длинный текст в ДОС (copy Test PRN). Если перевода не будет - проблема в дровах и компонентах, если будет - надо лезть в принтер.


Duracell   (2005-10-05 15:38:00) [2]

За прогон бумаги отвечает спец-символ ♀ (Alt+12)...
Вроде он... не помню точно...
Удаляй его или меняй на пробел...


John_Sokolov   (2005-10-05 15:12:00) [3]

В драйвере я такого не находил,
в Win98 менял страницу разделитель, там прогон бумаги был, но небольшой
WritePrinter не пробовал
А что он из себя представляет?


tesseract   (2005-10-05 14:12:00) [4]


> 2 tesseract ©   (04.10.05 16:39) [1] я правильно выразился?


В общем да :-)

Но в драйвере есть настройка для непрерывной ленты.


> Использую эмуляцию печати MS-DOS


Можно и WritePrinter


John_Sokolov   (2005-10-05 12:11:00) [5]

Вообщем я разобрался с этой проблемой
Использую эмуляцию печати MS-DOS
единственное, надо кодировать текст в MS-DOS с помощью AnsiToOem
Вот небольшой пример, на последней строке, головка остановливается и ждет следующей печати

procedure TForm1.Button1Click(Sender: TObject);
Var FileOut : TextFile;
   filename, Str : String [128];
   k:integer;
   p:Pchar;
begin
  Filename:='PRN';
  Str:='Проверка принтера. Прямая печать MS-DOS';
  Memo1.Text:=Str;
  p:=Memo1.Lines.GetText;
  AnsiToOem(p,p);
  Str:=Strpas(p);
  AssignFile(Fileout,FileName);
  Rewrite(Fileout);
  Writeln(FileOut,str);
  CloseFile(FileOut);
end;


John_Sokolov   (2005-10-05 11:01:00) [6]

Печатал и через драйвер и так в порт
Слышал что можно записывать какие-то спец. коды для контроля печати
но какие коды и как это делается и как записывается, без понятия


Германн   (2005-10-05 01:36:00) [7]

Я когда-то справился с подобной проблемой только установкой "длины листа" :(
Это "через драйвер".


IceBeerg   (2005-10-04 18:32:00) [8]

John_Sokolov   (04.10.05 13:23)
Если через драйвер то вроде никак, а если сам в порт пишеш, то не пихай принтюку соответствующую команду...
2 tesseract ©   (04.10.05 16:39) [1]я правильно выразился?


tesseract   (2005-10-04 16:39:00) [9]

а куда её прогоняют?

ты сам в порт  пишешь или через драйвер ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо