掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム印刷時に綴じ代を考えて，紙の左側余白を大きくするには？ (ID：4227)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
何度も丁寧なご指導ありがとうございます。 なんとかヘルプで TPrinter を発見できました。 大変申し訳なく思っているんですが，下記例が記載されていましたが メモの印刷ではなく，フォームの印刷に変えるにはどうしたら良いの でしょうか？本当に申し訳ありません．．．。 procedure TForm1.Button1Click(Sender: TObject); var r: TRect; i: Integer; begin with Printer do begin r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); BeginDoc; for i := 0 to Memo1.Lines.Count do Canvas.TextOut(200,200 + (i * Canvas.TextHeight(Memo1.Lines.Strings[i])), Memo1.Lines.Strings[i]); Canvas.Brush.Color := clBlack; Canvas.FrameRect(r); EndDoc; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.