Вывести текстовый файл на принтер

@Aerenhima · Регистрация: 30.03.2015

Author24 — интернет-сервис помощи студентам

Программа должна выводить текстовый файл на принтер.

Pascal

var
  s: string;
  str:char;
  p,sum: real;
  n: integer;
begin
  var f,outf: text;
  Assign(f, 'nevemo.txt');
  Assign(outf, 'prn');
  Reset(f);
  Rewrite(outf);
 
  while not Eof(f) do begin
    while true do begin
      read(f, str);
      if str = '!' then
        break
      else
        s += str;
    end;
    
    write(outf, s); write(outf, ' ');
    read(f, n); write(outf, n); write(outf, ' ');
    readln(f, p); writeln(outf, p);
    sum += n*p;
    s := '';
  end;
  write(outf, 'Итог: '); writeln(outf, sum);
end.

Ошибка отмеченная на 11 строке "Ошибка времени выполнения: FileStream не открывает устройства Win32, такие как логические диски и ленточные накопители. Избегайте использования "\\.\" в пути." Как ее исправить?

ФедосеевПавел · 12.04.2015, 07:48

Может быть попробовать печать с помощью модуля Printer (по крайней мере, в FreePascal и TurboPascal он присутствует).
Тогда должно быть так

Pascal

uses
  Printer;
begin
  writeln(Lst, 'Строка для вывода на принтер.');
end.

И ещё можно отлаживать выводя в текстовый файл. Когда вывод будет отлажен - переходить к принтеру, начиная с маленьких тестовых примеров.

Добавлено через 11 минут
---------------
Нет. Там всё сложнее. Для формирования изображения символов подаются команды (в том числе и выбор шрифта), а потом должна быть финализирующая команда для печати.

@Aerenhima · 12.04.2015, 13:50 **[ТС]**

хорошо, спасибо

@Aerenhima 0 / 0 / 0 Регистрация: 30.03.2015 Сообщений: 39
	12.04.2015, 13:50 [ТС]	3
	хорошо, спасибо 0