掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
印刷時に左余白を作るには（フォームの印刷） (ID：7670)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
用紙の左側に余白をもうけて印刷したいのですがという質問に対し，下記のように解答していただいたのですが， 『StretchDrawBitmapメソッドをコピーしておいて』 が分かりません。 --------------------------------------------------------------------- http://www.asahi-net.or.jp/~HA3T-NKMR/tips004.htm ここにある例でうまくいきませんか？ StretchDrawBitmapメソッドをコピーしておいて、 procedure TForm1.Button1Click(Sender: TObject); var r: TRect; i: Integer; FormImage: TBitmap; begin FormImage := GetFormImage; with Printer do begin BeginDoc; // (200,200)の位置にフォームを描画 StretchDrawBitmap(Canvas, rect(200, 200, FormImage.Width + 200, FormImage.Height + 200), FormImage); EndDoc; end; FormImage.Free; end; ただし、これだけでは紙をはみ出すかもしれません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.