uses
  TextUtils;

{$R *.DFM}

//=============================================================================
//  ディスクからテキストを読込んで設定したマージン内に印刷
//  1頁で終了しない場合は次頁に印刷する
//
//  禁則処理を行うこのコードは，プレビューまで時間がかかる
//
//  usesにTextUtils(中村拓男氏作)が必要
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  LStringList : TStringList;
  LOptions    : TFormatOptions;
  LRowH       : Integer;
  LStartY     : Integer;
begin
  //テキストを保持するTStringList作成
  LStringList:=TStringList.Create;

  LOptions := [foJustify];
  try
    //TStringListにテキストを読込む
    LStringList.LoadFromFile('001.txt');

    plPrev1.TopMargin    := 300;  //上端マージン
    plPrev1.BottomMargin := 250;  //下端マージン
    plPrev1.LeftMargin   := 300;  //左端マージン
    plPrev1.RightMargin  := 250;  //右端マージン
    LRowH                := 60;   //行幅

    plPrev1.BeginDoc;
    plPrev1.FontSize(10.5);
    plPrev1.FontName('ＭＳ Ｐ明朝');
    try
      while True do begin
        if plPrev1.PageNumber = 1 then begin
          LStartY := 900;
        end else begin
          LStartY := plPrev1.TopMargin;
        end;

        plPrev1.StringListOut(LStringList,
                              LOptions,
                              plPrev1.LeftMargin,
                              plPrev1.PaperWidth - plPrev1.RightMargin,
                              LStartY,
                              plPrev1.PaperHeight - plPrev1.BottomMargin,
                              LRowH);
        //描画領域に3mmの余白をつけてブルーの枠線を描画
        plPrev1.PenColor(clBlue);
        plPrev1.PenWidth(3);
        plPrev1.RectLine(plPrev1.LeftMargin - 30,
                         plPrev1.PaperWidth - plPrev1.RightMargin + 30,
                         LStartY - 30,
                         plPrev1.PaperHeight - plPrev1.BottomMargin + 30);
        if LStringList.Count = 0 then break;

        //改頁
        plPrev1.NewPage;
      end;
    finally
      plPrev1.EndDoc;
    end;

    //プレビュー開始
    plPrev1.ShowModal;
  finally
    FreeAndNil(LStringList);
  end;
end;

//=============================================================================
//  行間や禁則処理なしのテキスト文書の印刷
//  複数ページは不可
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  LRect       : TRect;
  LStringList : TStringList;
begin
  //印刷領域の設定
  LRect := Rect(plPrev1.LeftMargin,
                plPrev1.TopMargin,
                plPrev1.PaperWidth,
                plPrev1.PaperHeight);
  plPrev1.BeginDoc;
  LStringList := TStringList.Create;
  try
    //テキストファイルを読み込む
    LStringList.LoadFromFile('001.txt');

    plPrev1.FontName('ＭＳ ゴシック');
    DrawTextEx(plPrev1.Canvas.Handle,
               PChar(LStringList.Text),
               -1,
               LRect,
               DT_LEFT or DT_WORDBREAK,
               nil);
  finally
    FreeAndnil(LStringList);
    plPrev1.EndDoc;
  end;

  //プレビュー開始
  plPrev1.ShowModal;
end;