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

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;