ディスプレイの解像度以上の大きさを持つフォームを印刷するには？

解決

ino668 2009-05-10 00:38:44 No: 34328

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.

Mr.XRAY 2009-05-10 02:11:30 No: 34329

Mr.XRAYです．

次のようなことだと思います．

1. Formは画面のサイズより大きいのは表示できない．
    画面サイズに縮小される

2. TImageはFormより大きいサイズを作成することができる
    そうしないと，大きい画像の処理ができない．
    Formからはみ出る部分はスクロールすれば見える

3. 提示されたコードのPrintメソッドはFormを印刷している
    このとき，PrintScale:=poPrintToFit; となっているので，
    Form部分(画面サイズ)部分が印刷される

4. Imageはその画面サイズよりも大きい．

5. したがって，楕円全体は印刷できない．

画面に表示された時点で，楕円が全部見えてないと思いますが...
それにしても，何故OnCreateで処理しているのでしょうか．
そのほうが気になります．

Mr.XRAY 2009-05-10 02:26:46 No: 34330

Mr.XRAYです．

スミマセンね．質問の答えになっていませんでした．

>どのようにすれば、Form全体を印刷することができるでしょうか。

Form全体，この場合は横幅ですが，印刷できているはずです．

ino668 2009-05-10 05:14:02 No: 34331

Mr.XRAY さん

ご回答ありがとうございます。

さて、「それにしても，何故OnCreateで処理しているのでしょうか．そのほうが気になります．」とのこと。
OnCreateでなければならないことはなく、一連の流れ、描画、プリンタセットアップ、印刷がわかりやすいと思ったからです。他に特別な意味はありません。

「1. Formは画面のサイズより大きいのは表示できない．」とのこと。私の考え方が根本的に間違っているようですね。
現在、200×200ピクセルほどの楕円が入ったコンポーネントを水平方向に４つ、これを垂直方向に３列配置して、コンポーネントが合計１２でひとつのFormをつくり、印刷してＡ４版一枚のプリント問題（子ども向け、時計の読み方）を作りたいと思っています。
今のままでも、一応プリント問題としての体裁は整っているのですが、画面をそのままダンプしたようで、楕円が滑らかではないので、解決策を考えました。
Form上のコンポーネントのサイズを拡大しておいて、
PrintScale:=poPrintToFit;
を使い、縮小印刷(?)をかければ、がたがたの楕円が滑らかになるのではないだろうか、と。
そのために、事前準備として、2900×2100の楕円をひとつ描き、これが滑らかに印刷できれば、前述も可能だろうと考えました。
ところが、印刷してみると満足できませんでした。
２週間ほどいろいろ試してみたけれで、どうにも分からなかったので、このページに質問させてもらいました。
スクロールすれば、隠れた部分を表示させることはできますが、見えない部分までは印刷できないようですね。残念です。

「Form全体，この場合は横幅ですが，印刷できているはずです．」とのこと。
今回試している環境を書いていませんでした。すみません。
何度も印刷しては紙がもったいないので、いま設定しているPrinterは、「Microsoft Office Document Image Writer」です。
「*.TIF」ファイルとして保存されたものをダブルクリックして開いてみています。しかし下半分も右半分も見えません。
OSはWindowsXP（SP3)です。
もしかすると、Mr.XRAYさんの環境は、PrinterにしてもDisplayにしても、私の環境の数倍上のものなのかもしれません。

早速の、ご回答感謝しております。

Mr.XRAY 2009-05-10 06:00:50 No: 34332

Mr.XRAYです．

どうもよく分からないのですが，Imageに描いたものを印刷したいということですか?
でしたら，TImageの内容を印刷するようにしたらどうでしょう．

>Mr.XRAYさんの環境は、PrinterにしてもDisplayにしても、
>私の環境の数倍上のものなのかもしれません。

多少は，です．
先程のコードをButton1クリックで実行してみてください．
ただし，Printメソッドを実行しないで．
Formがどう見えるかわかるハズです．
上下左右をよく見てください．Formが画面からはみ出ていないことがわかると思います．
それを見て，FormとImageの表示のされ方を理解するといいと思いますよ．

その見える部分，つまりForm全体が印刷されるわけです．

くらら 2009-05-10 07:43:13 No: 34333

直接質問の答えにはならないですが、
ino668さんはTPrinterの使い方について調べるときっと幸せになれますよ。

Mr.XRAY 2009-05-10 08:16:19 No: 34334

Mr.XRAYです．

以下は，1024×768で，前のコードを実行した時のスクリーンのキャプチャです．
デスクトップにForm全体が表示されています．
これが印刷されるわけですから，Formの枠を除いた楕円の一部が印刷されることになります．
つまり，Form全体は印刷されているんです．
なぜ楕円の一部かというと，前にレスしたように，
楕円は，TImageに描かれています．
TImageのサイズは，Formの表示サイズより大きいからです．

>私の環境の数倍上のものなのかもしれません。

という問題ではないことが理解していただけるでしょうか．
今回の場合，表示FormのサイズとImageのサイズは違うのです．
楕円の一部しか，印刷されていないから，Form全体が印刷されていない
というこではないのです．

http://mrxray.on.coocan.jp/Others/Images/013.gif

KHE00221 2009-05-10 09:25:27 No: 34335

TImage に Printメソッドはないけど

procedure TCustomForm.Print;
の
FormImage := GetFormImage;
を
FormImage := Image1.Picture.Bitmap;
にすれば出来そうだけど

ino668 2009-05-11 06:15:07 No: 34336

Mr.XRAYさん重ねてのご回答ありがとうございます。

初心者のため、私が思い違いをしていたようです。

当方、初心者の癖に、コンポーネントを設計してみようとしているところです。
当初、TImageをもとにコンポーネントを設計しておりました。600×600ドットのコンポーネントです。
ところが、そのTImageClockをForm上にたくさん配置したところ、Formに現れないコンポーネントがでてきてしまいました。
しかし、それでも何とかFormを丸ごと印刷する方法があるのではないかと考えました。
ただ、自力ではできなかったので、このページに載せて、皆さんにお教え願ったのです。

Formとして現れていない部分は印刷できないのですね。
Formのサイズは、Imageのサイズによるものではなく、見えているのがFormなのですね。
キャプチャまで載せていただき、感謝しています。
なんとなくではありますが、分かりかけてきました。
理解が悪くてご迷惑をおかけします。
ご回答ありがとうございました。

くららさん、KHE00221さん、ご回答ありがとうございます。
TPrinterやPrintメソッドについて、すこしずつ勉強してみます。
ありがとうございました。

Mr.XRAY 2009-05-11 14:23:58 No: 34337

Mr.XRAYです．

あの〜，タイトルと文章からよく理解できないのですが，もしかして，

「図形をプリンタで印刷するにはどうしたらいいでしょうか」

という内容の質問に置き換えてもいいのでしょうか?
(沢山文章を書いたのに，たった1行にしてしまって申し訳ありません)
Imageコンポーネントの役割がいまいち理解できないでいるのですが...

もし，そうだとしたら，

新規プロジェクトにボタンを配置して，
以下のリストを試してみてください．
これは四角形を印刷するものですが，楕円でも命令を変更すれば可能です．
また，プロジェクトのunit.pasのusesのところに，Printersを追加する必要があります．
Delphi5でしたら，問題なく実行できるハズです．

procedure TForm1.Button1Click(Sender: TObject);
begin
    Printer.BeginDoc;
    try
      Printer.Canvas.Rectangle(360,360,2000,3000);
    finally
      Printer.EndDoc;
    end;
end;

このコードは，TImageは使用していません．
PrinterにもImageと同じく，Canvasがあります．
このプリンタのCanvasに直接出力するものです．

もし，意味が間違っていたらゴメンナサイ．

KHE00221 2009-05-12 04:12:11 No: 34338

ヤリタイコトハ・コンナコト？

TSampleComponent = class(TGraphicControl)
  public
    procedure Print(Canvas: TCanvas; Scale: Integer = 100);
  end;

procedure TSampleComponent.Print(Canvas: TCanvas; Scale: Integer = 100);
var
    L,T,R,B: Integer;
begin
    L := Left * Scale div 100;
    T := Top * Scale div 100;
    R := (Left + 200) * Scale div 100;
    B := (Top + 200) * Scale div 100;
    Canvas.Ellipse(L,T,R,B);
    Exit;
end;

procedure TForm5.Button1Click(Sender: TObject);
var
    I: Integer;
    Printer: TPrinter;
begin
    //Printer := TPrinter.Create;
    //Printer.BeginDoc;
    for I:=0 to ComponentCount -1 do
    begin
      if Components[I] is TSampleComponent then
      begin
        //TSampleComponent(Components[I]).Print(Printer.Canvas);
        TSampleComponent(Components[I]).Print(Image1.Canvas,200);
      end;
    end;
    //Printer.EndDoc;
    //Printer.Free;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin

Image1.Width := 1024;
Image1.Height := 1024;

    SC1 := TSampleComponent.Create(Self);
    SC1.Width := 200;
    SC1.Height := 200;
    SC1.Left := 10;
    SC1.Top := 10;

    SC2 := TSampleComponent.Create(Self);
    SC2.Width := 200;
    SC2.Height := 200;
    SC2.Left := 220;
    SC2.Top := 10;
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SC2.Free;
SC1.Free;
end;

ino668 2009-05-12 08:10:45 No: 34339

Mr.XRAYさん、KHE00221さん、何度もご回答感謝しています。
私の説明が悪いのと、Delphiについての勉強不足とで、大変なお世話をおかけしています。

さて、これ以上、要領を得ない説明を重ねては大変失礼ですので、
お恥ずかしいしだいではありますが、
私の自作のコンポーネント（作成途中です。フォントの表示サイズが不安定です）とそれを載せたProjectのソースをご覧ください。
（Delphi上級者からご覧になれば、まことにつたないものですが、その点、初心者ゆえのことと、どうぞご勘弁を願います。）

Ａ４版横置きの一枚のプリントに、縦横600ドットの時計が４×３＝１２個表示される算数のプリント問題を作りたかったのです。
しかし、このprojectでできたのは、２つの時計しか表示されず、スクロールしたら他の時計は見えるけれど、やはり１２個全部が見えるわけではない、予想とはずいぶん違ったものでした。

ごらんいただき、どうぞ、ご教授ください。

----------------------
unit ImageClock01;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,math;

type
  TImageClock = class(TCustomControl)
  private
    { Private 宣言 }
    ri,ro: real;//目盛の内外径
    rl,rs: real;//長針、短針の長さの割合（width/2との比）
    FPenWidthBorderLine: byte;    //境界線の幅
    FPenWidthScaleNoon: byte;     //正午の線の幅
    FPenWidthScale1Minutes: byte; //１分毎の線の幅
    FPenWidthScale5Minutes: byte; //５分毎の線の幅
    FPenWidthLongHand: byte;      //長針の幅
    FPenWidthShortHand: byte;     //短針の幅
    ValueTextRect: TRect;//Position値の描画領域
    ValueText: string;   //Position値の内容
    TextHeight:byte;  //キャプションとPosition値のフォント高
    FFontSize: Byte; //フォントのサイズ
    FHours: integer;                //時
    FMinutes: integer;              //分
    FLength: integer;               //縦横の長さ
    FOnChange: TNotifyEvent;
    procedure SetHours(const Value: Integer);
    procedure SetMinutes(const Value: Integer);
    procedure SetLength(const Value: Integer);
    procedure SetFontSize(const Value: byte);    //フォントンサイズ設定
    procedure SetPenWidthBorderLine(const Value: byte);    //境界線の幅設定
    procedure SetPenWidthScaleNoon(const Value: byte);    //正午の線の幅設定
    procedure SetPenWidthScale1Minutes(const Value: byte);    //１分毎の線の幅設定
    procedure SetPenWidthScale5Minutes(const Value: byte);    //５分毎の線の幅設定
    procedure SetPenWidthLongHand(const Value: byte);    //長針の幅設定
    procedure SetPenWidthShortHand(const Value: byte);    //短針の幅設定
    function HalfAdjust(x: Extended): Longint; //四捨五入  protected
    { Protected 宣言 }
    procedure Change; virtual; // OnChangeイベントのイベントディスパッチャ
    procedure Paint; override;
  public
    { Public 宣言 }
    constructor Create(AOwner: TComponent); override;
  published
    { Published 宣言 }
    property Length: integer read FLength write SetLength default 600;//縦横の長さ
    property Hours: Integer read FHours write SetHours default 0; // 短針の位置(値)
    property Minutes: Integer read FMinutes write SetMinutes default 0; // 長針の位置(値)
    property FontSize: byte read FFontSize write SetFontSize default 48;// キャプションと「値」のフォントサイズ
    property PenWidthBorderLine: byte read FPenWidthBorderLine write SetPenWidthBorderLine default 3;
    property PenWidthScaleNoon: byte read FPenWidthScaleNoon write SetPenWidthScaleNoon default 11;
    property PenWidthScale1Minutes: byte read FPenWidthScale1Minutes write SetPenWidthScale1Minutes default 3;
    property PenWidthScale5Minutes: byte read FPenWidthScale5Minutes write SetPenWidthScale5Minutes default 5;
    property PenWidthLongHand: byte read FPenWidthLongHand write SetPenWidthLongHand default 17;
    property PenWidthShortHand: byte read FPenWidthShortHand write SetPenWidthShortHand default 25;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
    property OnClick;
//    property Font;
  end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TImageClock]);
end;

function TImageClock.HalfAdjust(x: Extended): Longint; //四捨五入
begin
if x >= 0 then Result := Trunc(x + 0.5)
else Result := Trunc(x - 0.5);
end;

constructor TImageClock.Create(AOwner: TComponent);// コンストラクタ
begin
  inherited Create(AOwner);
  rl:=80/100;
  rs:=55/100;
  Length:=600;
  FPenWidthBorderLine:=3;
  FPenWidthScaleNoon:=11;
  FPenWidthScale1Minutes:=3;
  FPenWidthScale5Minutes:=5;
  FPenWidthLongHand:=17;
  FPenWidthShortHand:=25;
  FHours:=0;
  FMinutes:=0;
  FFontSize:= 48;
  TextHeight:=HalfAdjust(Font.Size*4/3);
  // 描画にはチラツキを抑えるためダブルバッファ方式を使う
  DoubleBuffered := True;
end;

procedure TImageClock.Paint;
var i: integer;
begin
  inherited;
  Width:=Length;
  Height:=Length;
  ri:= round(length div 2 *95/100);
  ro:= round(length div 2);

  //境界線
  canvas.Pen.Width:=FPenWidthBorderLine;
  canvas.Pen.Color:= clBlack;
  canvas.Ellipse(canvas.Pen.Width div 2,canvas.Pen.Width div 2,
                        Length-canvas.Pen.Width div 2,
                        Length-canvas.Pen.Width div 2);
  //正午
  canvas.Pen.Width:=PenWidthScaleNoon;
  canvas.MoveTo(round(ro-ri*cos(0*2*pi/12+pi/2)),round(ro-ri*sin(0*2*pi/12+pi/2)));
  canvas.lineTo(round(ro-(ro-canvas.Pen.Width div 2)*cos(0*2*pi/12+pi/2)),
                       round(ro-(ro-canvas.Pen.Width div 2)*sin(0*2*pi/12+pi/2)));
  //１分毎の線
  canvas.Pen.Width:=PenWidthScale1Minutes;
  for i:=1 to 59 do
  begin
    canvas.MoveTo(round(ro-(ri+canvas.Pen.Width*2)*cos(i*2*pi/60+pi/2)),
                         round(ro-(ri+canvas.Pen.Width*2)*sin(i*2*pi/60+pi/2)));
    canvas.lineTo(round(ro-(ro-canvas.Pen.Width)*cos(i*2*pi/60+pi/2)),
                         round(ro-(ro-canvas.Pen.Width)*sin(i*2*pi/60+pi/2)));
  end;
  //５分毎の線
  canvas.Pen.Width:=PenWidthScale5Minutes;
  for i:=1 to 11 do
  begin
    canvas.MoveTo(round(ro-ri*cos(i*2*pi/12+pi/2)),round(ro-ri*sin(i*2*pi/12+pi/2)));
    canvas.lineTo(round(ro-(ro-canvas.Pen.Width)*cos(i*2*pi/12+pi/2)),
                         round(ro-(ro-canvas.Pen.Width)*sin(i*2*pi/12+pi/2)));
  end;

  // 文字盤の数値を描く
  for i:=1 to 12 do
  begin
    ValueText := inttostr(i);
    ValueTextRect := Rect(round(ro-(ri-HalfAdjust(Font.size/2*5/3))*cos(i*2*pi/12+pi/2))-Font.Size,
                          round(ro-(ri-HalfAdjust(Font.size/2*5/3))*sin(i*2*pi/12+pi/2))-HalfAdjust(Font.Size/3*2),
                          round(ro-(ri-HalfAdjust(Font.size/2*5/3))*cos(i*2*pi/12+pi/2))+Font.Size,
                          round(ro-(ri-HalfAdjust(Font.size/2*5/3))*sin(i*2*pi/12+pi/2))+HalfAdjust(Font.Size/3*2));//領域を設定する
    Canvas.Font.Color := clWindowText;
    Canvas.Font.Size:= FFontSize;
//    TextHeight:=HalfAdjust(FFontSize*4/3);
    DrawText(Canvas.Handle, PChar(ValueText), -1, ValueTextRect, DT_CENTER or DT_SINGLELINE);
  end;

//  randomize;
//  hours:= 0;//random(12);
//  minutes:= 0;//random(60);
  //短針
  canvas.Pen.Color:= clRed;
  canvas.Pen.Width:=PenWidthShortHand;
  canvas.MoveTo(round(ro),round(ro));
  canvas.LineTo(round((ro-rs*ro*cos((Fhours+Fminutes/60)*2*pi/12+pi/2))),
                       round((ro-rs*ro*sin((Fhours+Fminutes/60)*2*pi/12+pi/2))));
  //長針
  canvas.Pen.Color:= clBlack;
  canvas.Pen.Width:=PenWidthLongHand;
  canvas.MoveTo(round(ro),round(ro));
  canvas.LineTo(round((ro-rl*ro*cos(Fminutes*2*pi/60+pi/2))),
                       round((ro-rl*ro*sin(Fminutes*2*pi/60+pi/2))));

end;

procedure TImageClock.Change;// OnChangeイベントのイベントディスパッチャ
begin
if Assigned(FOnChange) then FOnChange(Self);
end;

procedure TImageClock.SetHours(const Value: Integer);// 短針の位置(値)を変更する
var
  NewHours: Integer;
begin
  NewHours := Value;
  if NewHours > 11 then NewHours := 11;
  if NewHours < 0 then NewHours := 0;
// 新しい値(位置)が前の値と異なるなら位置を更新しOnChangeイベントを起こす
  if FHours <> NewHours then
  begin
    FHours := NewHours;
    Refresh;
    Change;  // OnChangeイベント
  end;
end;

procedure TImageClock.SetMinutes(const Value: Integer);// 長針の位置(値)を変更する
var
  NewMinutes: Integer;
begin
  NewMinutes := Value;
  if NewMinutes > 59 then NewMinutes := 0;
  if NewMinutes < 0 then NewMinutes := 0;
// 新しい値(位置)が前の値と異なるなら位置を更新しOnChangeイベントを起こす
  if FMinutes <> NewMinutes then
  begin
    FMinutes := NewMinutes;
    Refresh;
    Change;  // OnChangeイベント
  end;
end;

procedure TImageClock.SetLength(const Value: Integer);// 縦横の長さを変更する
var
  NewLength: Integer;
begin
  NewLength := Value;
  if NewLength < 100 then NewLength := 100;
// 新しい値(位置)が前の値と異なるなら位置を更新しOnChangeイベントを起こす
  if FLength <> NewLength then
  begin
    FLength := NewLength;
    Width:=FLength;
    Height:= FLength;
    Refresh;
    Change;  // OnChangeイベント
  end;
end;

procedure TImageClock.SetFontSize(const Value: byte);// フォントサイズを変更する
var
  NewFontSize: Byte;
begin
  NewFontSize:= Value;
  if Font.Size <> NewFontSize then
  begin
    Font.Size:= NewFontSize;
    FFontSize:= NewFontSize;
    TextHeight:=HalfAdjust(FFontSize*4/3);