mihoさん、こんばんは。

＞WindowsAPIを使っているのですが、Windows2000上でうまく動きません。
＞
＞Windows98上で以下のスクリプトを実行すると、OpenPrinter()は正常に実行されるのですが、
＞Windows2000上で同じスクリプトを実行してもエラーになります。（戻り値０）

実験君してみました。
W2Kが手元に無いのでNT4.0WSの環境で試したところ、問題なく動作しました。
以下のスクリプトで、W2Kの動作を試してみてください。

???????????????????????????????????
[検証環境]
OS: NT4.0 SP6a
PB: PB5.0.04
 
????????????????????????????????????
[外部関数の定義]
function boolean OpenPrinter(ref string lpszPrinter,  &
                             ref ulong  lphPrinter,   &
                             ref string lppd)         &
                 library \"winspool.drv\" alias for \"OpenPrinterA\"
function uLong   GetLastError() library \"Kernel32.DLL\"
 
????????????????????????????????????
[スクリプトの記述]
boolean bRet
uLong   lRet
string  printerDeviceName     //プリンタデバイス名
uLong   printerHandle         //プリンタハンドル
string  lstr_printerdefaults  //プリンタデフォルト構造体(Nullを指定可)
 
printerDeviceName = \"\\\\NSVR1\\FUJITSU XL-5700\"  //ネットワークプリンタ名
setNull(lstr_printerdefaults)
 
bRet = OpenPrinter(printerDeviceName, printerHandle, lstr_printerdefaults)
if bRet then
  messageBox(\"Information\",\"成功~r~nPrinterHandle = \"+string(printerHandle))
else
  lRet = GetLastError()
  messageBox(\"Error\",string(lRet))
end if
????????????????????????????????????