掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ディスプレイの解像度以上の大きさを持つフォームを印刷するには？ (ID:34328)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi初心者です。教えてください。 Delphi5を使っています。 ディスプレイの解像度（1280×800ピクセル）以上のサイズをもつFormをつくりました。 これを印刷してみました。 A4横置きの状態で、大きな楕円が印刷できるつもりでしたが、 Formの右や下の部分が印刷できませんでした。 どのようにすれば、Form全体を印刷することができるでしょうか。 なお、下がそのソースファイルです。（ImageとPrinterSetupDialogを配置しています。） よろしくお願いします。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; PrinterSetupDialog1: TPrinterSetupDialog; procedure FormCreate(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin Top:=0; Left:=0; Self.Width:=2900; Self.Height:=2100; Image1.Align:= alClient; Image1.Canvas.Ellipse(0,0, 2900,2100); PrinterSetupDialog1.execute; PrintScale:=poPrintToFit; Print; end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.