掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム印刷時に綴じ代を考えて，紙の左側余白を大きくするには？ (ID：4230)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今、プリンタが使える環境でないので、確認できません。 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.