名前 題名 ▼ Mr.XRAYさん > ▼ 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; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link