掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
印刷処理 (ID：8141)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のソースでフォームタイトルしか印刷されません 何故でしょう var Line: Integer; P:TPrintDialog; begin P:=TPrintDialog.Create(Self); if P.Execute then begin with Printer do begin BeginDoc; Canvas.Font.Size:=12; Canvas.TextOut(100, 10, Self.Caption); for Line:=0 to MainEdit.Lines.Count-1 do begin Canvas.TextOut(10, Canvas.Font.Height+30+(Canvas.Font.Height+1*Line), MainEdit.Lines[Line]); end; EndDoc; end; end; P.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.