掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画面全体を印刷するには？ (ID：10019)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Form１つの印刷は出来るのですが、画面全体にある２つ以上のFormを印刷できません。色々やってもわからないのでご教授お願いします。 procedure TForm3.SpeedButton1Click(Sender: TObject); begin if PrintDialog1.Execute then begin Screen.Cursor := crHourGlass; //カーソルチェンジ with Printer do begin try Orientation := poLandscape; //印刷方向を横にセット BeginDoc; //印刷設定 try ここにどういうコードを書いたらいいでしょうか？ EndDoc; //印刷開始 finally Screen.Cursor := crDefault; //カーソルを戻す end; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.