PermissionPrinterNameプロパティ

印刷を許可するプリンタのプリンタ名を指定します。指定したプリンタは，PrintEPFメソッドの実行時に，プリンタの選択ダイアログ中のプリンタ一覧に表示されます。

PermissionPrinterNameプロパティでプリンタ名を指定した場合，ExclusionPrinterNameプロパティおよびExclusionPrinterDriverプロパティの指定値は無効になります。

指定したプリンタ名が，PrinterNameパラメタ，またはNoSetPrinterDlgパラメタの指定によって自動で印刷されるプリンタではない場合，KEEY181-Eエラーとなります。

DefaultPrintDlgパラメタでYESを指定した場合は，PermissionPrinterNameプロパティの指定値は無効になり，登録されているプリンタがすべて表示されます。

指定できるプリンタ名は100個までです。100を超えるプリンタ名を指定した場合，PrintEPFメソッド実行時にKEEY153-Eエラーとなります。

〈このページの構成〉

• 形式

• 指定例

Set printers = CreateObject("Scripting.Dictionary")
printers.add 0, "Printer1"       'printers(0) = "Printer1"でも可能
printers.add 1, "Printer2"       'printers(1) = "Printer2"でも可能
printers.add 2, "Printer3"       'printers(2) = "Printer3"でも可能
document.Form1.EURPMPRINTAX.PermissionPrinterName = printers.items

document.Form1.EURPMPRINTAX.PermissionPrinterName
                       = Array("Printer1","Printer2","Printer3")

Dim printers(2)
printers(0) = "Printer1"
printers(1) = "Printer2"
printers(2) = "Printer3"
document.Form1.EURPMPRINTAX.PermissionPrinterName = printers

var printers = new ActiveXObject("Scripting.Dictionary");
printers.add(0, "Printer1");       //printers(0) = "Printer1"でも可能
printers.add(1, "Printer2");       //printers(1) = "Printer2"でも可能
printers.add(2, "Printer3");       //printers(2) = "Printer3"でも可能
document.Form1.EURPMPRINTAX.PermissionPrinterName = printers.items();