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

[AlexandЯ]

DELPHI. Нужно, чтобы по нажатию кнопки, производилась печать на принтер из определенного файла, причем чтобы печатались только 3-ая и последняя строки... Подскажите пожалуйста...

[Скандербег]

uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var SL : TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('<имя файла>');
    if SL.Count < 3 then Exit;
    with Printer do begin
      BeginDoc;
      Canvas.TextRect(Rect(200,200, PageWidth-200, PageHeight-200),
                      200, 200, SL[2]+#13#10+SL[SL.Count-1]);
      EndDoc;
    end;
  finally
    SL.Free;
  end;
end;

Часть кода взята из справки. Чаще обращайтесь к справке.

[AlexandЯ]

Большое спасибо!!!