名前 題名 ▼ Mr.XRAYさん > ▼ 宮さん > 印刷の際の余白というのは、そのアプリを作成する人が設定するものです。 > 余白を決めたら、その余白に入るように印刷のコードを書くわけです。 > > 例えばワードでは、余白を設定する画面があります。これを設定すると > ワードは、印刷の時に(もちろん印刷プレビューの時も)これに合わせて > 印刷するようになっているわけです。 > > 例えばここを見て下さい。 > http://mrxray.on.coocan.jp/Delphi/plPrev/T_TextOutFile.htm > ここのリスト1では、 > > with plPrev1 do begin > TopMargin := 300; {上端マージン} > BottomMargin:= 250; {下端マージン} > LeftMargin := 300; {左端マージン} > RightMargin := 250; {右端マージン} > > というコードで、余白(マージン)を決めています。決めたからといって > その設定を自動的にOSやDelphiがやつてくれるわけではありません。 > 自分で、これらの値を使用したコードを書くわけです。 > 必要であれば、これらの値を入力するためのTEditを配置したフォームを > 作成するわけです。上ではコード上で設定しているだけです。 > > Delphi7であれば、PageSetupDialogを使用して次のようにもできますが、 > そうでなければ、自作です。 > http://mrxray.on.coocan.jp/Others/PageSetupDialog.htm > > procedure TForm1.Button1Click(Sender: TObject); > begin > if PageSetupDialog1.Execute then begin > TopMargin:=PageSetupDialog1.MarginTop; > end; > end; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link