Win2008であれば、
そもそもEasy Print プリンタ ドライバを利用しているのではないでしょうか、
Easy Print プリンタ ドライバを使わない設定を行っていないのでは？

P様

早々のご返答ありがとうございました。
プリンタはサーバ側のドライバを使用して
ネットワークプリンタで設定している状況です。

該当プリンタのドライバを最新のものに更新しても
現象が再発している次第です。

OSレベルで発生する現象はいくらユニバーサルドライバは汎用型だとしても、
XenAppでも同じ現象が発生する気がしますが・・・。
http://support.citrix.com/article/CTX118747

ちなみにXenAppでも同じ現象が発生しても特定のアプリ・特定のプリンタ関する問題は
サードベンダーの仕事なのでCitrixでは対応してもらえませんよ。

ターミナル経由でメモ帳で普通に印刷して発生しなければそのアプリが問題だと思います。

言語：VisualBasic6.0
DB：sqlserver2000

VB6.0で開発したプログラムから
ストアドプロシージャ（sqlserver2000）を実行しているのですが
ローカルで実行するとエラーになりませんが、
Citrix ICA クライアント環境で実行すると下記のエラーメッセージ（VB側）が表示されます。
「実行時エラー'3704'：オブジェクトが閉じている場合は、操作が許可されません。」

いろいろと探してみたのですが、解決策など明記してあるサイトにたどり着けませんでした。
どうぞご教授ください。

VB側のコーディングは以下の通りです。

【VB】
Private Function fnc_Calc() As Boolean
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim strUpdDate$

On Error GoTo fnc_Calc_Err

fnc_Calc = False

Screen.MousePointer = vbHourglass

Set cn = New ADODB.Connection
Set cmd = New ADODB.Command

cn.ConnectionString = DBCon$
cn.CursorLocation = adUseServer
cn.Open

'更新日時
strUpdDate$ = Format$(Now(), "yyyy/mm/dd hh:nn:ss")

'トランザクション開始
cn.BeginTrans

With cmd
'コネクションをコマンドに設定
Set .ActiveConnection = cn

'コマンド種別 = ストアド
.CommandType = adCmdStoredProc
'ストアド名を指定
.CommandText = "usp_Calc"

'パラメータ追加:引数(I/O)
.Parameters.Append fnc_SetParam(cmd, "@i_intShoriYM", adInteger, 6, adParamInput, Format$(frmMenu.imDate年月.Value, "YYYYMM"))
.Parameters.Append fnc_SetParam(cmd, "@i_datPROC_YMD", adDBTimeStamp, 135, adParamInput, CDate(strUpdDate$))
.Parameters.Append fnc_SetParam(cmd, "@i_nvcPROC_NAME", adVarChar, 100, adParamInput, lbltitle.Caption)
.Parameters.Append fnc_SetParam(cmd, "@i_nvcUSER_NAME", adVarChar, 30, adParamInput, USER_NAME$)
.Parameters.Append fnc_SetParam(cmd, "@o_intSysErrCD", adInteger, 10, adParamOutput)
End With

'ストアド実行
cmd.Execute

If cmd.Parameters(1).Value < 0 Then
'ロールバック
cn.RollbackTrans

MsgBox "更新に失敗しました。", , "警告"

If Not (cn Is Nothing) Then
cn.Close
Set cn = Nothing
End If
Screen.MousePointer = vbDefault
Exit Function
End If

'コミット
cn.CommitTrans

'解放
cn.Close
Set cn = Nothing

Screen.MousePointer = vbDefault
'戻り値
fnc_Calc = True

Exit Function

fnc_Calc_Err:
'ロールバック
cn.RollbackTrans

MsgBox CStr(Err.Description), , "警告"

If Not (cn Is Nothing) Then
cn.Close
Set cn = Nothing
End If

Screen.MousePointer = vbDefault
End Function

話の流れから何を言ってるか分からないです。
新しい質問は新しいトピックを作成してください。

ただ、新しいトピックを作成する前にリモート接続でOS側の問題か確認してくださいね。
リモート接続で同じ現象が出る場合はここの掲示板ではなくて、Microsoftの掲示板に問い合わせをしてください。
http://support.citrix.com/article/CTX127143