IMetabaseDeviceDescriptors.Count

Fore Syntax

Count: Integer;

Fore.NET Syntax

Count: integer;

Description

The Count property returns the number of devices in the list of printers available for printing.

Fore Example

To execute the example, add a link to the Metabase system assembly.

Sub Macro;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MP: IMetabasePolicy;
    DP: IMetabaseDevicePolicy;
    DevDess: IMetabaseDeviceDescriptors;
    DevDes: IMetabaseDeviceDescriptor;
    i:integer;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    MP := Ms.Policy;
    DP := MP.PrintersPolicy;
    DevDess := DP.Enumerate;
    For i:=0 To DevDess.Count-1 Do
        DevDes:= DevDess.Item(0);
        Debug.WriteLine(DevDes.DeviceName);
        Debug.WriteLine(DevDes.Key);
        Debug.WriteLine("----------------");
    End For;
End Sub Macro;

After executing the example device name and key are displayed in the console window.

Fore.NET Example

Imports Prognoz.Platform.Interop.Metabase;
...

Public Shared Sub Macro(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MP: IMetabasePolicy;
    DP: IMetabaseDevicePolicy;
    DevDess: IMetabaseDeviceDescriptors;
    DevDes: IMetabaseDeviceDescriptor;
    i:integer;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    MP := Ms.Policy;
    DP := MP.PrintersPolicy;
    DevDess := DP.Enumerate();
    For i:=0 To DevDess.Count-1 Do
        DevDes:= DevDess.Item[0];
        System.Diagnostics.Debug.WriteLine(DevDes.DeviceName);
        System.Diagnostics.Debug.WriteLine(DevDes.Key);
        System.Diagnostics.Debug.WriteLine("----------------");
    End For;
End Sub;

After executing the example device name and key are displayed in the console window.