例

次の例は、表示スペース内の長方形の領域に文字を設定し、autECLPS オブジェクトに関連させて 接続する方法を示しています。

Dim autECLPSObj as Object 
Dim PSText String 

’ Initialize the connection 
Set autECLPSObj = CreateObject ("ZIEWin.autELCPS") 
autECLPSObj.SetConnectionByName("A") 

SetTextRect "HCL is great company to collaborate with", 1, 1, 4, 8

括弧を使用する場合は、以下のように SetTextRect を使用します。

call SetTextRect("HCL is great company to collaborate with", 1, 1, 4, 8)