[ プリンタ設定コンポーネント ] [ プリンタの設定値取得 ]

Delphi Programming / Object Pascal

[掲載 2000年05月07日] [更新 2004年08月19日]　プリンタ設定コンポーネント

プリンタ設定コンポーネントプリンタの設定値取得
動作確認等	-

プリンタの設定値を取得

GetPrinterInfo(GetFlag)

現在のプリンタの設定を取得して、TplSetPrinter のプロパティを置換えます。True の場合、デフォルト値で設定します。

引数	型	説明
GetFlag	Boolean	True 　プリンタのデフォルト値を取得 False　プリンタの現在の設定値を取得省略した場合は False

[プリンタの設定ダイアログ] で設定した内容を plSetPrinter1 のプロパティとします。そして、その用紙名を Edit1 に表示する例です。

リスト1

if PrinterSetupDialog1.Excute then begin
  plSetPrinter1.GetPrinterInfo;
  Edit1.Text := plSetPrinter1.PaperName;
end;