名前 題名 ▼ KSCさん > ▼ Mr.XRAYさん > > こんばんは。 > > > もし上記の状況での使用であれば，以下のようにしてみて下さい． > > (先読み方式ではこの手法は使えません) > > つまり，プリンタの設定ダイアログを表示するかわりに > > 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; > > データを読み込んだ際に、 > plPrev1.plSetPrinter.Orientation:=poLandScape; > PrinterSetBtnClick(nil); > > を実行する事で問題解決する事が出来ました。 > ありがとうございました。 > > これからも宜しくお願い致します。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link