Карта сайтаСсылкиКонтакты

Вывод текста на принтер

PDF Печать
Статьи

Эта процедура Delphi посылает текст, содержащийся в многострочном окне редактирования (Memo в Delphi) не принтер. Шрифт и размер шрифта могут быть определены.

На форме расположены: TMemo (Memo1), TPrintDialog (PrintDialog1) и TButton (PrintButton).


procedure TForm1.PrintButtonClick(Sender: TObject);
var
  POutput: TextFile;
  k: Integer;
begin
  if PrintDialog1.Execute then
  begin
    AssignPrn(POutput);
    Rewrite(POutput);
    Printer.Canvas.Font.Name := 'Courier New';
    Printer.Canvas.Font.Size := 8;
    // Здесь выводим любые свои строки
    Writeln(POutput,'1 строка');
    Writeln(POutput,'2 строка');
    Writeln(POutput,'3 строка');
    // а это уже вывод строк из TMemo
    for k := 0 to Memo1.Lines.Count - 1 do
      Writeln(POutput, '     ' + Memo1.Lines[k]);
    CloseFile(POutput);
  end;
end;

 

Комментарии   

 
0 #1 easydisplay.co.uk 15.05.2014 01:12
Hi my family member! I wish to say that this article is amazing, great written
and come with approximately all important infos. I'd like to look more posts like this
.
Цитировать
 

Добавить комментарий


Защитный код
Обновить