//=============================================================================
//  エクセルの印刷ダイアログを表示するメソッドの使用
//  エクセル操作フォームExの継承フォームの[印刷]ボタンクリックイベントに記述
//  した場合
//=============================================================================
procedure TplExcelFormEx2.btnPrintClick(Sender: TObject);
begin
  //inherited; これは元のボタンクリックイベント実行なので不要

  //印刷方向を横とする
  xlfExcelSheet.PageSetup.Orientation := xlLandscape;

  xlfExcelShowPrintDialog;
end;

//=============================================================================
//  ボタンクリックでエクセルの印刷プレビューを表示する
//  WorksheetFunctionオブジェクトのcount関数は引数が多いのでOleVariantで使用
//  数値が１つも入ってないシートはデータがないことになるので注意
//=============================================================================
procedure TplExcelFormEx2.Button4Click(Sender: TObject);
var
  BtnInfo   : TplExcelPrintPrevBtnEnabled;
  AFunction : OleVariant;
begin
  AFunction := xlfExcelApp.WorksheetFunction;
  if AFunction.Count(xlfExcelSheet.Cells) = 0 then begin
    Application.MessageBox('印刷可能なデータがありません．', 'シートの印刷');
  end else begin
    BtnInfo.BtnPageSetup := False;
    BtnInfo.BtnMargin    := False;
    BtnInfo.BtnHelp      := True;

    //印刷プレビュー表示
    xlfExcelShowPrintPreview(BtnInfo);
  end;
end;