こんにちわ。

ターゲットのフレーム指定してもダメでしょうか？

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Call workspace.SetTargetFrame("frameA")
Set uidoc = workspace.CurrentDocument

ご回答ありがとうございます。

やってみましたが駄目でした。ボタンの配置されている方のNotesUIDocumentが取得されてしまいます。

既に開いてある他フレーム文書の NotesUIDocument を取得するのは恐らく無理でないかと。

できるとすれば、そのボタンを開く側のフレームから文書を開くときの戻り値でNotesUIDocumentが取得できるので
( SetTargetFrame() 後の ComposeDocument() or EditDocument() )、
印刷かけるボタンのある文書側から文書を開くような作りになっているなら可能かもしれないですが…


基本的にはNotesアプリでフレーム間のやりとりは出来ないものと考えた方がよい気がします。
（XPagesなどWebでやるなら話は違ってきますが）

ご回答ありがとうございます。

>SetTargetFrame() 後の ComposeDocument() or EditDocument()

の戻り値は取得できません。Domino Desigerヘルプにも、フレームでこれらのメソッドを使う場合にはreturnNotesUIDocumentオプションをFalseに設定して値を返さないようにするよう書いてあります。Trueにするとエラーになります。

やはり

>Notesアプリでフレーム間のやりとりは出来ない

ということになるのですね。

これはどう考えてもNotesオブジェクトモデルの設計ミスではないのかと思います。UI要素にフレームを追加した際にNotesUIFrameSetみたいなクラスを用意してくれていれば良かったのに。

フレーム設計はNotes5の時代からあるので、設計ミスかどうかは分かりませんが、フレーム間の動きは弱いですね。

ちなみに式でやればうまくいきました。

@SetTargetFrame( "FrameB" );
@Command([FilePrint])

式で出来たエージェントをスクリプトのagent.runでいけるか試してみましたが、こちらはダメでした。

なので、スクリプトだけでするとなると、ykawaさんが仰るように、開きなさないとだめだと思います。

下記は、左のフレームにあるビュー上でカーソルある文書を右フレーム（FrameB）に開いて印刷するといったものですが、実現できました。

右で開いているdocが取れる前提です。

    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim collection As NotesDocumentCollection
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase
    Set collection = db.UnprocessedDocuments
    Set doc = collection.GetFirstDocument()
    
    
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    
    Call workspace.SetTargetFrame("FrameB")
    
    Set uidoc = workspace.EditDocument(False, doc)
    Call uidoc.Print

フレームでEditDocumentの戻り値を取得できるのですね!

ヘルプにはエラーになると書いてあるし、ComposeDocumentで過去にやって実際にエラーになったので、EditDocumentもエラーになると思い込んでいました。

実際にやってみると、確かにエラーは出ませんでした。

もしかしたら仕様外の動作かもしれず、いつIBMの都合でヘルプに書いてある通りの動作に変更されても不思議ではないのが不安ではありますが、とりあえずこの件は解決といたします。

（本当は直前のRiits西さんのコメントがBest Anserですが、回答ではなくコメントになっているためBest Anserを付けられません）