[Delphi_Source]

Доброго времени суток, уважаемые пользователи!
Помогите разработать приложение для вывода содержимого компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл. Приложение должно иметь возможность настройки шрифта выводимого текста.
Спасибо за внимание!

[M.A.D.M.A.N.]

Класс TPrinter.

[Alegun]

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

Код:

procedure TForm1.Button1click(sender: tobject); 
begin 
 if FontDialog1.Execute then Memo1.Font:= FontDialog1.Font; 
end;

...Помогите разработать приложение для вывода содержимого компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл...

Код:

uses Printers; 
procedure TForm1.Button2Click(sender: tobject); 
var 
 Prn: TextFile; 
 i: integer; 
begin 
 AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
 Rewrite(Prn); // Готовим принтер к печати
 Printer.Canvas.Font:= Memo1.Font; 

 // Цикл печати: 
 for i := 0 to Memo1.lines.Count - 1 do Writeln(Prn, Memo1.Lines[i]); 

 CloseFile(Prn);

end;

[Delphi_Source]

Сообщение от Alegun

Код:

procedure TForm1.Button1click(sender: tobject); 
begin 
 if FontDialog1.Execute then Memo1.Font:= FontDialog1.Font; 
end;

Код:

uses Printers; 
procedure TForm1.Button2Click(sender: tobject); 
var 
 Prn: TextFile; 
 i: integer; 
begin 
 AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
 Rewrite(Prn); // Готовим принтер к печати
 Printer.Canvas.Font:= Memo1.Font; 

 // Цикл печати: 
 for i := 0 to Memo1.lines.Count - 1 do Writeln(Prn, Memo1.Lines[i]); 

 CloseFile(Prn);

end;

Почему не выводится ничего в текстовый файл, а сразу идет на печать?

[poli-smen]

Сообщение от Delphi_Source

Почему не выводится ничего в текстовый файл, а сразу идет на печать?

А где здесь вывод в файл? Для вывода в файл нужно использовать AssignFile вместо AssignPrn.

[Delphi_Source]

Сообщение от poli-smen

А где здесь вывод в файл? Для вывода в файл нужно использовать AssignFile вместо AssignPrn.

Ошибка такого плана:

[Error] Unit1.pas(48): Not enough actual parameters

[poli-smen]

Сообщение от Delphi_Source

Ошибка такого плана:

Что в переводе означает "Не хватает фактических параметров".
Чтобы узнать какие параметры требует для своего вызова функция AssignFile - стаём на неё курсором и нажимаем F1.

[Delphi_Source]

Сообщение от poli-smen

Что в переводе означает "Не хватает фактических параметров".
Чтобы узнать какие параметры требует для своего вызова функция AssignFile - стаём на неё курсором и нажимаем F1.

Delphi syntax - это?

Там просто выбился кусочек кода и описание этого параметра на английском языке

[poli-smen]

Сообщение от Delphi_Source

Delphi syntax - это?

Там просто выбился кусочек кода и описание этого параметра на английском языке

Код:

AssignFile(Prn, 'C:\ПутьКФайлу\ИмяФайла.txt');

[Delphi_Source]

Сообщение от poli-smen

Код:

AssignFile(Prn, 'C:\ПутьКФайлу\ИмяФайла.txt');

Начало выводить содержимое компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл, но принтер почему-то не печатает.
До момента редактирования печать с поля Memo была, теперь почему-то не идет

[poli-smen]

Сообщение от Delphi_Source

Начало выводить содержимое компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл, но принтер почему-то не печатает.
До момента редактирования печать с поля Memo была, теперь почему-то не идет

Ну правильно. Если нужно выводить в файл - используешь AssignFile. Если нужно выводить на принтер - используешь AssingPrn. Если нужно выводить и в файл и на принтер делаешь 2 переменные типа TextFile - к одной применяешь AssingPrn к другой AssignFile и выводишь данные в обе переменные.

[Delphi_Source]

Сообщение от poli-smen

Ну правильно. Если нужно выводить в файл - используешь AssignFile. Если нужно выводить на принтер - используешь AssingPrn. Если нужно выводить и в файл и на принтер делаешь 2 переменные типа TextFile - к одной применяешь AssingPrn к другой AssignFile и выводишь данные в обе переменные.

Можно подробнее об этих 2-х переменных?
Как должен выглядеть этот код?

[poli-smen]

Сообщение от Delphi_Source

Можно подробнее об этих 2-х переменных?
Как должен выглядеть этот код?

Код:

uses Printers;
 
procedure TForm1.Button2Click(sender: tobject); 
var
  Prn, Txt: TextFile; 
  i: integer; 
begin
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
  AssignFile(Txt, 'C:\ПутьКФайлу\ИмяФайла.txt');
  Rewrite(Prn); // Готовим принтер к печати
  Rewrite(Txt);
  Printer.Canvas.Font:= Memo1.Font; 

  // Цикл печати: 
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    Writeln(Prn, Memo1.Lines[i]); 
    Writeln(Txt, Memo1.Lines[i]); 
  end;
 
  CloseFile(Prn);
  CloseFile(Txt);
end;

[Delphi_Source]

Сообщение от poli-smen

Код:

uses Printers;
 
procedure TForm1.Button2Click(sender: tobject); 
var
  Prn, Txt: TextFile; 
  i: integer; 
begin
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
  AssignFile(Txt, 'C:\ПутьКФайлу\ИмяФайла.txt');
  Rewrite(Prn); // Готовим принтер к печати
  Rewrite(Txt);
  Printer.Canvas.Font:= Memo1.Font; 

  // Цикл печати: 
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    Writeln(Prn, Memo1.Lines[i]); 
    Writeln(Txt, Memo1.Lines[i]); 
  end;
 
  CloseFile(Prn);
  CloseFile(Txt);
end;

Теперь выдает печать на прямую. Раньше было стандартное диалоговое окно для выбора параметров печати (см. вложение).
Это из-за отсутствия компонента TPrintDialog?

[poli-smen]

Сообщение от Delphi_Source

Теперь выдает печать на прямую. Раньше было стандартное диалоговое окно для выбора параметров печати (см. вложение).
Это из-за отсутствия компонента TPrintDialog?

Да. Но присутствия компонента TPrintDialog недостаточно для вывода этого диалогового окна - ещё нужно вызвать метод Execute этого компонента:

Код:

if PrintDialog1.Execute then // Если пользователь нажал кнопку "ОК" в диалоге печати...
begin
  // ... тогда печатаем
end;