Using the printer/ja: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Using the printer/ja

New		Line
1	+	## はじめに
2	+
3	+	Lazarus/FreePascal での印刷は簡単です。しかしながら、いくつかのステップを踏む必要があります。第一ステップは共通です。その次からは、さまざまな進んだ印刷技法を学べるようになります。この文書は、必要不可欠なステップをさまざまなネットのフォーラムや例から集めてきたものです。最初のステップの後で、実際に文書を印刷してみます。最後に、更に高度な印刷技法のヒントを提供します。
4	+
5	+	## 基本的なステップ
6	+
7	+	プリンタを使えるようにするには、次の段階を踏まなければなりません: You must do the following to be able to use printers:
8	+
9	+	1. Printer4Lazarus パッケージを、プロジェクトが要求するパッケージに含める。
10	+	2. Printers ユニットを、プログラムの uses 節に加える。
11	+	3. 既に存在する Printer オブジェクトを使用する。
12	+
13	+	### Printer4Lazarus パッケージを、プロジェクトが要求するパッケージに含める
14	+
15	+	Printer4Lazarus パッケージは基本的なプリンタを定義し、プラットフォームに依存しない印刷環境を提供します。さまざまなプラットフォームで、次の事が行えます。 The Printer4Lazarus package defines a basic printer and provides platform independent printing. The following can thus be used on various platforms.
16	+
17	+	Lazarus IDE で、次のようにしてください:
18	+
19	+	1. プロジェクトメニューで、プロジェクトインスペクタをクリックします。ツリー表示のウインドゥが現れ、その中に、要求されたパッケージという枝があります。初期状態では、その枝にはLCLパッケージがあります。
20	+	2. 追加ボタンを押します（ウインドゥ上部の＋印ボタン）。
21	+	3. 新規の要求ページを開きます。
22	+	4. パッケージ名リストボックスから Printer4Lazarus を選びます。
23	+	5. OKをクリック。
24	+	6. これで Printer4Lazarus が要求されたパッケージに現れます。
25	+
26	+	### Printers ユニットをプログラムのユニットの uses 節に加える
27	+
28	+	このステップは簡単で、こんなふうになるでしょう:
29	+
30	+	``` pascal
31	+	unit MainUnit;
32	+
33	+	{$mode objfpc}{$H+}
34	+
35	+	interface
36	+
37	+	uses
38	+	Classes, SysUtils, Forms, Printers;
39	+	```
40	+
41	+	### 既存の Printer オブジェクトを用いる
42	+
43	+	ボタンを押したら文章を印刷するようにしたいとします。フォームに PrintBtn という名前でボタンを置き、OnClick イヴェントのところにこう書いてください:
44	+
45	+	``` pascal
46	+	procedure TForm1.PrintBtnClick(Sender: TObject);
47	+	const
48	+	LEFTMARGIN = 100;
49	+	HEADLINE = 'I Printed My Very First Text On ';
50	+	var
51	+	YPos, LineHeight, VerticalMargin: Integer;
52	+	SuccessString: String;
53	+	begin
54	+	with Printer do
55	+	try
56	+	BeginDoc;
57	+	Canvas.Font.Name := 'Courier New';
58	+	Canvas.Font.Size := 10;
59	+	Canvas.Font.Color := clBlack;
60	+	LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I')));
61	+	VerticalMargin := 4 * LineHeight;
62	+	// There we go
63	+	YPos := VerticalMargin;
64	+	SuccessString := HEADLINE + DateTimeToStr(Now);
65	+	Canvas.TextOut(LEFTMARGIN, YPos, SuccessString);
66	+	finally
67	+	EndDoc;
68	+	end;
69	+	end;
70	+	```
71	+
72	+	先ほど基本的かつ単純と書きました。上記の例はちょっと複雑です。ボールドで基礎的なテキスト出力を行う方法に引き続き、書式を設定する例も示しています。
73	+
74	+	begin から end までの間に、こんなことが起きています:
75	+
76	+	- Printer.BeginDoc によって、印刷が始まります。ですが、 Printer.EndDoc を実行するまでプリンタには何も送られません。
77	+	- プチンタは描画に Canvas を用います。そこに描かれたものが、最終的に印刷されるページに表示されます。Canvas.Font は Canvas への出力に用いられるフォントオブジェクトです。すなわち、ここで指定されたフォント設定が後の TextOut 呼出しによってテクストを描画する際に用いられるわけです。
78	+	- Canvas に描画するものはすべて、座標によって位置決めされる必要があります。そこで、テクストの垂直方向の位置を定めるために LineHeight を計算しています。水平方向の位置も同様に計算します。ここでは LEFTMARGIN に置くことにします。
79	+	- テクストは TextOut 呼出しで描画されます。
80	+	- Printer.EndDoc によって、この偉業がプリンタに送られます。
81	+
82	+	フォーラムによっては、PrintDialog（プリンタ選択ダイアログ）を呼び出さないとうまくいかないように書いてありますが、（もはや）そんなことはありません。
83	+
84	+	## 次のステップ
85	+
86	+	上述の基本的なステップを踏んだら、次の段階に進めます。読者には以下の宿題を出しておきましょう:
87	+
88	+	- 紙に図形を描画する。
89	+	- テクストをかっこ良くフォーマットする。
90	+	- 他のプリンタを選択して結果を比べる。
91	+
92	+	Lazarus には、プリンタへの Raw 印刷を用いる例があります。次の場所をみてください。 \$(lazarusdir)\components\printers\samples\rawmode\rawmodetest.lpi 他のプリンタを選択する例はこれです: \$(lazarusdir)\components\printers\samples\dialogs\selectprinter.lpi
93	+
94	+	## 進んだステップ: コントロールの印刷
95	+
96	+	根本的には、プリンタオブジェクトは Canvas への描画を許し、その Canvas のイメジをプリンタに送るものです。上述の路線で進むなら、プリンタの canvas が持つメソッドを用いてテクストや楕円や菱形やなんかを描画していくことになります。
97	+
98	+	しかしながらこれは、立派なプログラマには到底興味を持たれるようなものではありません。あなたは今、完璧な CAD ソフトや画像ファイルのソータを書いているところで、あなたのプログラムが生んだ素晴らしい結果をプリンタに送りたいと思っています。完全なピクチャを Canvas メソッド呼出しの集団に翻訳するですって? とんでもない: すでにピクチャは手許にあるのです。
99	+
100	+	あなたがフォームに置くコントロールは一つ残らず、プリンタと同じように TCanvas オブジェクトにピクチャを描画しているのです。スクリーンからプリンタにピクチャを持ち込むために、これが使えます。
101	+
102	+	プレビュープログラムを書いているとします。まずフォームを作り、その上に TPanel を置きます。このパネルは、プレビューのすてきな灰色の背景となります。そのパネルの上に、page と呼ばれるもう一つの TPanel を置きます。この page は白色で、紙を表します。ページの大きさもすてきに変更可能です。
103	+
104	+	このページの上に TShape オブジェクトを一つおきます。例えばすてきな赤の、角が丸い長方形。さてここで、次のコードを PrintBtnClick イヴェントメソッドに置いてみてください:
105	+
106	+	``` pascal
107	+	MyPrinter.BeginDoc;
108	+	page.PaintTo(myPrinter.Canvas, 0, 0);
109	+	MyPrinter.EndDoc;
110	+	```
111	+
112	+	何が起きるか:
113	+
114	+	- BeginDoc が印刷を開始します（が、まだ何も送られません）。
115	+	- page.PaintTo は先に作った紙を表す TPanel オブジェクトの出力をプリンタの Canvas に送ります。次のことに注意してください:
116	+	1. PaintTo メソッドは、コントロールのヒエラルキーの中のどのコントロールのものも使いたければ使えます。
117	+	2. PaintTo メソッドを持っていれば、どのコントロールからもプリンタに出力を送れるので、いろいろなことができます。画像ソータなら、TImage の出力をプリンタに送れるわけです。
118	+	3. TCanvas には、矩形領域を他の Canvas にコピーするメソッドがあります。しかし、この機能はそのオブジェクトが実際に Canvas に描画する場合にのみ使えます。思うに、ほとんどのコントロールは実際の Canvas としてコンテナを利用しています。ですから、コントロールから矩形領域のコピーを行うことはできません。少なくとも、私の所ではだめでした。
119	+	4. 印刷しようとするコントロールが可視であることを確認してください。不可視だと、何もペイントされず、プリンタにも送られません。
120	+	- EndDoc によって、描画情報がプリンタに送られます。
121	+
122	+	## 更に進もう: リサイジング
123	+
124	+	プリンタが紙の上の一インチあたり使うピクセルの数は、モニタがスクリーン上の一インチあたり使うピクセルの数よりもはるかに大きくなっています（訳注: プリンタの DPI の方が、モニタの DPI よりずっと大きいということ）。その結果、スクリーンからプリンタにリダイレクトされた出力は、紙の上ではちっぽけになってしまいます。見栄えのする印刷には、スケーリングとレイアウトの制御が大事です。スクリーンで見る大きさと紙の上での大きさが揃っていればすてきでしょう（訳注: 昔のマックのように）。
125	+
126	+	今の時点では、我々は理想(ideal)を追っているのではなく、理念(idea)を探っているのです。前にも述べた通り、コントロールは描画に自前の Canvas を持っておらず、コンテナあるいはオーナーの Canvas に依存しています。しかし、自前の Canvas を持つコンポーネントもあります。ここでは TBitMap を選びます。次のように働きます。
127	+
128	+	``` pascal
129	+	procedure TForm1.PrintBtnClick(Sender: TObject);
130	+	var
131	+	MyPrinter : TPrinter;
132	+	myBitMap : TBitMap;
133	+	begin
134	+	myBitMap := TBitMap.Create;
135	+	myBitMap.Width := page.Width;
136	+	myBitMap.Height := page.Height;
137	+	page.BorderStyle:=bsNone;
138	+	page.PaintTo(myBitMap.Canvas, 0, 0);
139	+	page.BorderStyle:=bsSingle;
140	+	//
141	+	MyPrinter := Printer;
142	+	MyPrinter.BeginDoc;
143	+	//page.PaintTo(myPrinter.Canvas, 0, 0);
144	+	//myPrinter.Canvas.Draw(0,0, myBitMap);
145	+	myPrinter.Canvas.CopyRect(Classes.Rect(0, 0, myPrinter.PaperSize.Width, myPrinter.PaperSize.Height),
146	+	myBitMap.Canvas, Classes.Rect(0, 0, myBitMap.Width, myBitMap.Height));
147	+	MyPrinter.EndDoc;
148	+	myBitMap.Free;
149	+	end;
150	+	```
151	+
152	+	これを動作させるには、Windows ユニットを使わないでください。Windows ユニットは異なった Rect を定義しています。この例ではこんなことが起こります:
153	+
154	+	- ビットマップが一枚生成され、page コントロールと同じ大きさに設定されます。
155	+	- 輪郭が描画されないように、ビットマップへの描画に先立って、page の BorderStyle をオフにしています。描画後、元の値に戻されます。
156	+	- 印刷が開始され、BitMap の Canvas の内容がプリンタの Canvas にコピーされます。
157	+
158	+	page が拡大される時に一つ注意すべきことがあります。Printer.papersize はビットマップの大きさより相当大きいが、コピーされる過程でうまく当てはまるようになるということです。ただし、これがちゃんと働くようにするには、page の縦横比を用紙の縦横比と一致させなければなりません。やり方はわかるでしょう。
159	+
160	+	このやりかたの問題点は、スクリーンのピクセルが印刷した紙にも出ることです。言ったように、理想ではなく理念を提示したのです。コントロールは自前の Canvas を持っていない、コントロールを印刷するには、自前の Canvas を持つオブジェクト（TBitMap）にまず描画する。さてこれで、読者はそれがどう働くかを知り、精細な図版や文書を作り出す方法を理解することができるようになったわけです。そのためには、自分自身を描画する際に、TPanel には低解像度で、TBitMap には高解像度で行うようなオブジェクトが必要になるでしょう。しかし、それは別の解説書の題材です。
161	+
162	+	## 関連項目
163	+
164	+	- [[LazReport Documentation]] LazReport はデータドリブンな報告書を作るのに使えます。それは印刷したり PDF としてエクスポートしたりすることができます。
165	+	- [[LazReport Tutorial]]
166	+
167	+	---
168	+	From the Free Pascal wiki, page "Using the printer/ja", as it stood on 2020-03-04 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history