|
▼ KSCさん
> ReDrawBtnClickということは逐次表示方式でしょうか．
> このReDrawBtnというのは(継承)プレビューフォーム上にあるのでしょうか．
もし上記の状況での使用であれば，以下のようにしてみて下さい．
(先読み方式ではこの手法は使えません)
つまり，プリンタの設定ダイアログを表示するかわりに
PrinterSetBtnClickの引数にnilを渡して設定します．nilを渡すと
ダイアログを表示しないで現在のプリンタの設定でプレビューし直します．
Btn1ClickがReDrawBtnClickに該当．
Form1はメインフォーム
usesにPrintersが必要
procedure TplPrevForm2.Button1Click(Sender: TObject);
begin
Form1.plPrev1.plSetPrinter.PaperNumber:=DMPAPER_A4;
Form1.plPrev1.plSetPrinter.Orientation:=poLandScape;
PrinterSetBtnClick(nil);
end;
|