Здравствуйте, Fury, Вы писали:
F>При нажатии на кнопку на форме нужно, чтобы принтер начинал печатать
F>из файла.
F>Вот как это сделать?
Первый вариант:
uses
Printers;
procedure TForm1.Button1Click(Sender: TObject);
var
FIn: TextFile;
FPrn: TextFile;
BuffStr: string;
begin
AssignFile(FIn, 'myfile.txt');
Reset(FIn);
AssignPrn(FPrn);
ReWrite(FPrn);
while not EOF(FIn) do
begin
ReadLn(FIn, BuffStr);
WriteLn(FPrn, BuffStr);
end;
CloseFile(FPrn);
CloseFile(FIn);
end;
uses
Printers;
procedure TForm1.Button1Click(Sender: TObject);
var
FIn: TextFile;
BuffStr: string;
begin
AssignFile(FIn, 'myfile.txt');
Reset(FIn);
Printer.BeginDoc;
while not EOF(FIn) do
begin
ReadLn(FIn, BuffStr);
FPrn.Canvas.DrawText({ ... });//сам добавишь рисование :)
// нужно еще не забыть про рскидку по страницам :)
end;
CloseFile(FIn);
end;
Пикник — Песня Без Слов (Женшень)
Если при компиляции и исполнении вашей программы не происходит ни одной ошибки — это ошибка компилятора :)))
