|
||
解説: コンポーネントに入力した文字列を印刷するにはどうすればよいでしょう? 今回は Edit に入力されたテキストを印刷してみます。ひとつやり方が分かれば、あとは、Memo や RichEdit など他のコンポーネントでも応用が利くと思います。 使用例: 今回は、Edit に入力した文字列を単純にそのまま印刷しています。 コンポーネントは、 Edit, Buton を配置して終わりです。 準備として、"Printers.hpp" をインクルードしておきます。 Button1 の OnClick で、印刷ジョブが初期化され、Edit1 のテキストが印刷されます。 出力位置は、0, 0 にしてあります。テキストがすべて印刷されれば、印刷ジョブを終了しておしまいです。 今回は、Edit に表示された文字列を単純に印刷していますが、実際の印刷ツールとしては、 ページの幅や行数、ページ数などを考慮してコーディングする必要がでてきます。 ※印刷プレビューを含め、面倒な印刷を簡単に行うには QuickReport コンポーネントを参考にしてください。 #include <Printers.hpp> //------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { //印刷ジョブを初期化 Printer()->BeginDoc(); //Edit1 のテキストを印刷 //キャンバス上の座標値に文字列を描画 Printer()->Canvas->TextOut(0, 0, Edit1->Text); //印刷ジョブを終了 Printer()->EndDoc(); } //------------------------------------------------------------------- |