過去の桐井戸端BBS (桐ver.9)
27554 フォームのリストボックスのリストを切り替えるたびに印刷プレビューが表示されるようにしたい 朝太郎(初心者) 2004/09/03-12:33
いつも大変参考にさせていただいてます。
フォームのリストボックス中のリストを切り替えるたびにサブフォームに印刷プレビューが表示される…なんてことが可能でしょうか?
よろしくお願いします。
27555 サブフォームに印刷プレビューは不可能 悲しげ 2004/09/03-18:52
記事番号27554へのコメント
>フォームのリストボックス中のリストを切り替えるたびにサブフォームに印
>刷プレビューが表示される…なんてことが可能でしょうか?

印刷プレビューは桐システムウィンドウの方で画面いっぱいを使って表示するもので、
これをサブフォームに閉じ込めることは、そもそも不可能な気がします。(^^;)

ただ、画面いっぱいを使ってもいいのなら、「フォームのリストボックス中のリストを切り替えるたびに
印刷プレビューが表示される」ことは可能かと思います。

例えば、当該リストボックスオブジェクトの
 ソースリスト &選択ファイル名
 選択値    "A","B","C"
とした場合、「選択値変更」イベントで
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
手続き定義開始 当該リストボックス::選択値変更(長整数 &選択数)
 if(&選択ファイル名="A")
  表 "A.tbl"
  レポート印刷 "A.rpt",プレビュー=する,終了状態=&実行リターン
  終了 表 編集対象表
 else if(&選択ファイル名="B")
  表 "B.tbl"
  レポート印刷 "B.rpt",プレビュー=する,終了状態=&実行リターン
  終了 表 編集対象表
 else if(&選択ファイル名="C")
  表 "C.tbl"
  レポート印刷 "C.rpt",プレビュー=する,終了状態=&実行リターン
  終了 表 編集対象表
 end
手続き定義終了
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
のように。

27556 Re:サブフォームに印刷プレビューは不可能 朝太郎(※注:初心者) 2004/09/03-20:07
記事番号27555へのコメント
悲しげさん、早々にコメントありがとうございます。
ご丁寧にイベント文までご教授頂き感激です。\(;_;)/
早速、参考にさせていただきます。

戻る