名前
題名
▼ KSCさん > ▼ Mr.XRAYさん > > たびたび、すいません。 > > > コード上で設定するということですね．失礼しました． > > はい。 > > > プリンタの設定にはプリンタ設定コンポを使用します． > > まず，プリンタ設定コンポTplSetPrinterを配置します． > > 次に，印刷プレビューコンポのplSetPrinterプロパティ(オブジェクト・ > > インスペクタでも指定可能)に，配置したプリンタ設定コンポを指定して > > 下さい．印刷プレビューは，このプリンタ設定コンポの設定にしたがって > > プレビューします． > > > > 後は，このプリンタ設定コンポのPaperNumberとか Orientation プロパ > > ティ等を設定することになります． > > TplSetPrinterを配置し、再描画ボタンを配置して、イベントソースは下記の通りです。 > > procedure TPrevFrm.ReDrawBtnClick(Sender: TObject); > begin > // FOMData1は、レイアウトデータを管理しているコンポーネントです。 > 　// PDirectionの値はTPrinterOrientation型でpoLandscapeです > plPrev1.plSetPrinter.SetOrientation( FOMData1.PDirection ); > > 　// CustomPaperWidthの値は用紙幅方向データで値は2970です > 　// CustomPaperHeightの値は用紙幅方向データで値は2100です > if (plPrev1.ViewWidth <> FOMData1.CustomPaperWidth) > or (plPrev1.ViewHeight <> FOMData1.CustomPaperHeight) then begin > plPrev1.ViewWidth := FOMData1.CustomPaperWidth; > plPrev1.ViewHeight := FOMData1.CustomPaperHeight; > PageWholeBtnClick( Sender ); > end; > > plPrev1.Display(plPrev1.PageNumber); > end; > > この時、 > ☆plPrevの画面上の用紙は、A4横になっている。 > ☆印刷範囲は、やはりデフォルトプリンターの既定値（A4縦）のままである。 > ☆プリンター設定ダイアログを開くと用紙方向は横がチェックされています。 > 　ダイアログをＯＫクリックすると印刷範囲はA4横となります。 > > 後、何がソース上、足りないのでしょうか？
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link