喫茶XRAY [Mr.XRAY掲示板]

>続きは明日以降ということで．

報告です．
結果的に[印刷プレビュー]ボタンは無効にも非表示もできませんでした．
ハンドルまたはIDの値が取得できません(添付図の上図参照)

ハンドルあるいはID値が取得できれば，例えば以下のように値をセットしたり
できます．
(結果は添付図の下の図参照)

procedure TplExcelFormEx2.WndProc(var Message: TMessage);
var
  DialogWnd   : HWND;
  S1,S2,S3    : String;
  Id1,Id2,Id3 : Integer;
begin
  inherited;

  if Message.Msg = WM_ACTIVATE then begin
    DialogWnd := Message.LParam;
    if GetWindowTextStr(DialogWnd) <> '印刷' then exit;

    Id1:=33;  //Excel97,2000印刷開始頁コントロールID
    Id2:=34;  //Excel97,2000印刷終了コントロールID
    Id3:=40;  //Excel97,2000印刷部数コントロールID

    S1 :=IntToStr(1);  //印刷開始頁
    S2 :=IntToStr(10); //印刷終了頁
    S3 :=IntToStr(5);  //印刷部数

    //印刷開始頁等に文字列をセット}
    SendDlgItemMessage(DialogWnd, Id1, WM_SETTEXT, 0, LongInt(PChar(S1)));
    SendDlgItemMessage(DialogWnd, Id2, WM_SETTEXT, 0, LongInt(PChar(S2)));
    SendDlgItemMessage(DialogWnd, Id3, WM_SETTEXT, 0, LongInt(PChar(S3)));
  end;
end;