yoshikiさん、こんにちは。

//**************************************
// wf_papernames()
// サポートされる用紙名のリストを取得
// DeviceCapabilities DC_PAPERNAMES
// string as_DeviceName プリンタデバイス名(プリンタフォルダでの名前)
// ref string as_papernames[] 用紙名のリスト
// 戻り値 エラー:-1 用紙種類の数
//**************************************
long ll_i,ll_j,ll_ret
UInt li_Index
sr_DEVMODE lpDevMode
character lpOutput2[]
string ls_null,ls_tmp
setnull(ls_null)
li_Index = DC_PAPERNAMES
ll_ret = DeviceCapabilities(as_DeviceName,ls_null,li_Index,ls_null,ls_null)
if ll_ret = -1 then
 return -1
end if
・
・
・
（以下略）

当BBSの[013553]を元に帳票出力するウィンドウ関数にコーディングしたのですが、
まず、

sr_DEVMODE lpDevMode

のところで、コンパイルエラーが出たので、この行はコメントにしました。
そうするとコンパイルが通ったので、実行したら

ll_ret = DeviceCapabilities(as_DeviceName,ls_null,li_Index,ls_null,ls_null)

のところで、ll_ret　に　-1　が返ってきてしまいました。
そこで処理は終了です。。

他には･･
//インスタンス変数の宣言
Constant long DC_PAPERS = 2
Constant long DC_BINS = 6
Constant long DC_BINNAMES = 12
Constant long DC_PAPERNAMES = 16

//プリンタ設定ローカル外部関数の定義
Function long DeviceCapabilities(string lpDeviceName,string lpPort,UInt iIndex,ref string 
lpOutput,ref string lpDevMode) LIBRARY \"winspool.drv\" Alias for \"DeviceCapabilitiesA\"

Function long DeviceCapabilities(string lpDeviceName,string lpPort,UInt iIndex,ref character 
lpOutput[],ref string lpDevMode) LIBRARY \"winspool.drv\" Alias for \"DeviceCapabilitiesA\"

と宣言及び定義してあります。

何か足りないのでしょうか･･
知っていらっしゃったらご教授よろしくお願いいたします。