Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2000年12月12日] [更新 2016年04月19日]　印刷プレビュー制御コンポーネント
印刷プレビュー制御コンポーネント
使用方法
動作確認等 Windows 7 U64(SP1) + Delphi XE(UP1) Pro で作成






TPrinter オブジェクト


この印刷プレビュー制御コンポーネントを使用するには，Delphi の TPrinter オブジェクト (クラス) を使用して，プリンタに出力，つまり印刷する基本的な方法を知っている必要があります．

この印刷プレビューコンポーネント TplPrve は，拙作のプリンタ設定コンポーネント TplSetPrinter を使用します．プリンタ設定コンポーネントの説明も参考にしてください．





簡単なテストプログラム


この印刷プレビュー制御コンポーネントの簡単な使用方法です．と言っても本質的な機能はこれだけです．後は描画コード，つまり印刷のコードをどう書くかだけです．
このテストプログラムでは TPrinter の Canvas と同じ様に印刷用のコードを書いていきます．違うのは
  • 寸法の単位は TPrinter ではドットだが，このコンポーネントではは 0.1 mm
  • EndDoc メソッドを実行しても印刷も表示もしない
  • ShowModal メソッドを実行すると印刷プレビューをする
ということです．この TPrinter の Canvas への描画と同じ様に BeginDoc 等を使用する方法を，このコンポーネントでは [先読み方式] と呼んでいます．
この方式では，印刷の頁全てをメタファイルにして，プレビューの際は，該当頁を取出して表示します．したがって，プレビュー開始までは少し時間がかかりますが，一度プレビューすると，イメージの表示切換えだけですので頁送りは高速です．この他に [逐次表示方式] があります．
プリンタの設定は，実行時にも同じプリンタと同じドライバが存在すれば，その設定を再現することができます．


図1
設計時画面
  • Delphiを起動
  • ボタンと本コンポーネントを配置
  • 下に示すコードを作成
図2
プリンタを選択
図3
プリンタのプロパティを設定
  • [Properties] をダブルクリックまたは
    [...] をクリック
図4
実行
  • 実行してボタンクリック

リスト1　 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, plPrev, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    plPrev1: TplPrev;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Printers;

{$R *.DFM}

//====================================================================
//  印刷プレビューコンポーネントの簡単な使用方法
//
//  TPrinerによる印刷同様，BeginDoc～EndDocメソッドを使用する
//  必要に応じて階頁のNewPageメソッドを使用する
//  印刷(描画)コードは本コンポーネントのTCanvasを使用する
//====================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  //印刷用のコードを書く
  plPrev1.BeginDoc;
  try
    plPrev1.Canvas.Font.Height := 180;
    plPrev1.Canvas.TextOut(200, 300, '印刷プレビューの簡単なテスト');
  finally
    plPrev1.EndDoc;
  end;

  //プレビューフォームのサイズと位置を設定
  //自動生成なので，そのためのプロパティがある
  //指定しなければデフォルト値となる
  plPrev1.FormPosition := poDesktopCenter;
  plPrev1.FormWidth    := 600;
  plPrev1.FormHeight   := 450;

  //プレビュー開始
  plPrev1.ShowModal;
end;

end.



先読み方式で複数頁の場合


以下のテストプログラムを参考にして下さい．





プリンタの設定を実行時に行う方法


以下のように，実行時にプリンタの設定を行うこともできます．使用可能なメソッドやプロパティはプリンタ設定コンポーネントのオンライン・マニュアルを参考にしてください．
実行時にコードで設定すると，設定した内容だけが変更されます．その他のプロパティは設計時のままとなります．ただし，プリンタを変更すると，ほとんどの場合，用紙サイズ，印刷の方向，ビン (用紙供給装置) 番号以外はそのプリンタのデフォルトの値となります．


リスト2　 
//====================================================================
//  印刷プレビューコンポーネントの使用方法
//  プリンタの設定を実行時に行う方法
//====================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
   //用紙サイズと印刷の方向(ここでは横)を設定
  //poLandscape等の定数名の使用にはusesにPrintersが必要
   plPrev1.plSetPrinter.PaperNumber := DMPAPER_A5;
   plPrev1.plSetPrinter.Orientation := poLandscape;

  //印刷用のコードを書く
  plPrev1.BeginDoc;
  try
    plPrev1.Canvas.Font.Height := 100;
    plPrev1.Canvas.TextOut(150, 300, 'プリンタの設定例');
  finally
    plPrev1.EndDoc;
  end;

  //プレビュー開始
  plPrev1.ShowModal;
end;



継承フォームを使用したテストプログラムの利用方法


継承フォームを使用するプロジェクトについての注意です．
添付のテストプログラムには，継承フォームを使用したものがあります．それらのプロジェクトを IDE で起動しても，継承フォームを表示することはできません．継承フォームを表示するには，プロジェクトのソースコード内の，継承元のフォームファイルの場所を変更してください．

plPrevfrm.pas がライブラリパスが通った場所にあれば，継承したフォームが表示できなくても，コンパイルは可能です．



リスト3　
継承フォームを使用したプロジェクトのソースコードの例
plPrevfrm.pas のパスを，自分の開発環境に合わせて変更する		 
program BitMapTest;

uses
  Forms,
  BitMapTestUnit in 'BitMapTestUnit.pas' {Form1},
  Unit2 in 'Unit2.pas' {plPrevForm2},
  Unit1 in 'Unit1.pas' {plPrevForm1},
  plPrevfrm in 'D:\XRAYpl\plPrevfrm.pas' {plPrevForm}; //パスを変更する

{$R *.RES}