|
>ht tp://hatenachips.blog34.fc2.com/blog-entry-397.html
>
>そこで、この二つを組み合わせて
>「F_Summary」で「印刷プレビュー」をクリックした際に
>「F_PreviewParentMenu」が開き、なおかつ、「ClirntNo」で識別して開けないかと思っております。
リンク先の2分目のサンプル「プレビューウィンドウをフォームの子ウィンドウにする」の方法を使うのですね。
F_PreviewParentMenu を開くときにOpenArgs引数に抽出条件を設定します。
Docmd.OpenForm "F_PreviewParentMenu", OpenArgs:="ClirntNo =" & bango
フォームの方の読み込み時のレポートを開く時にその抽出条件を設定します。
Private Sub Form_Load()
DoCmd.OpenReport docName, acViewPreview, , Me.OpenArgs
'レポートの位置とサイズをフォームに合わせて調整
DoCmd.MoveSize 0, Me.cmdPrint.Height, Me.InsideWidth,
・・・以下略
※リンク先の3番目の方法「ボタンのフォームをプレビューの子ウィンドウにする」でよければ、下記のリンク先の方法を使えば、DoCmd.OpenReport と同じ感覚で使えるのでおすすめです。
印刷プレビューに[印刷][閉じる]ボタンを付加するOpenReport互換関数
ht tp://hatenachips.blog34.fc2.com/blog-entry-398.html
|
|