procedure TplExcelFormEx1.Button1Click(Sender: TObject);
var
  DateStr : String;
  TimeStr : String;
begin
  //現在の日付と時刻をヘッダ部の右側に2行で印刷.文字サイズは8ポイント
  DateStr := '印刷日付 ： ' + FormatDateTime('yyyy"年"m"月"d"日"', Date);
  TimeStr := '印刷時刻 ： ' + FormatDateTime('h"時"m"分"s"秒"', Time);

  //  sLineBreak(#13#10)だと2行の空白行となってしまうので#13
  xlfExcelSheet.PageSetup.RightHeader := '&08' + DateStr + #13 + TimeStr;

  //ヘッダの中央に'ＭＳ Ｐ明朝'の20ポイントのサイズでシート名を印刷
  xlfExcelSheet.PageSetup.CenterHeader:='&"ＭＳ Ｐ明朝"&20&A';

  //フッタの中央にページ番号と総ページ数を印刷
  xlfExcelSheet.PageSetup.CenterFooter := '&P/&N';

  //ついでにページの余白も設定してみる
  //単位はポイント数なののでセンチメートルから換算
  xlfExcelSheet.PageSetup.LeftMargin   := xlfExcelApp.CentimetersToPoints(3.5, 0);
  xlfExcelSheet.PageSetup.TopMargin    := xlfExcelApp.CentimetersToPoints(3.5, 0);
  xlfExcelSheet.PageSetup.RightMargin  := xlfExcelApp.CentimetersToPoints(3.5, 0);
  xlfExcelSheet.PageSetup.BottomMargin := xlfExcelApp.CentimetersToPoints(3.5, 0);
end;

//=============================================================================
//  ページレイアウト表示
//  Excel 2007以上のみ
//=============================================================================
procedure TplExcelFormEx1.Button2Click(Sender: TObject);
const
  xlPageLayoutView = 3;
var
  pIndex : OleVariant;
  AItem  : OleVariant;
begin
  if xlfExcelVersionNo >= 12 then begin
    xlfExcelApp.ActiveWindow.View := xlPageLayoutView;
    xlfSetFocusExcel;
  end;
end;

//=============================================================================
//  通常の表示形式に戻す
//=============================================================================
procedure TplExcelFormEx1.Button3Click(Sender: TObject);
begin
  xlfExcelApp.ActiveWindow.View := xlNormalView;
end;

procedure TplExcelFormEx1.Button5Click(Sender: TObject);
var
  pIndex     : OleVariant;
  AItem      : OleVariant;
  LeftMargin : OleVariant;
  TopMargin  : OleVariant;
begin
  pIndex := xlDialogPageSetup;
  try
    AItem := xlfExcelApp.Dialogs.Item[pIndex];
    LeftMargin := 35 / 25.4;
    TopMargin  := 50 / 25.4;
    AItem.Show(Arg3 := LeftMargin, Arg5 := TopMargin);
  except
    raise;
  end;
  xlfSetFocusExcel;
end;