Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Авг

Печать текстового файла

Posted by Chas under Delphi, Пост-обзор

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

SERG1980



uses Printers;

.....

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

 Printer.BeginDoc;

 Printer.Canvas.Font.Size:=12;

 for I:= 0 to memo1.Lines.Count - 1 do

 Printer.Canvas.TextOut(20,150+(150*i),memo1.Lines);

 Printer.EndDoc;

end;

DenNik2006

uses

  .. Printers;
procedure TForm1.Button1Click(Sender: TObject);

var

  t: TextFile;

  s: TStrings;

  i: word;

begin

  if OpenDialog1.Execute then

  begin

    s:= TStringList.Create;

    s.LoadFromFile(OpenDialog1.FileName);

    AssignPrn(t);

    Rewrite(t);

    for i:= 0 to s.Count - 1 do

      WriteLn(t,s);

    CloseFile(t);

    s.Free;

  end;

end;