Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
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;