Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
83 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13080】印刷設定について まゆ 16/10/6(木) 10:34 質問[未読]
【13081】Re:印刷設定について hatena 16/10/6(木) 14:11 回答[未読]
【13082】Re:印刷設定について まゆ 16/10/6(木) 17:07 質問[未読]
【13083】Re:印刷設定について hatena 16/10/7(金) 15:01 回答[未読]
【13084】Re:印刷設定について まゆ 16/10/7(金) 15:55 お礼[未読]
【13080】印刷設定について
質問  まゆ  - 16/10/6(木) 10:34 -
引用なし
パスワード
   現在
■フォーム「F_Summary」
■フォーム「F_PreviewParentMenu」
■レポート「R_Summary」
があり、

「F_Summary」にて「印刷プレビュー」というボタンをおき、
そのボタンを実行するとフォームで表示されているレコードのみをレポートへ表示させるようにしています。(ClirntNoという顧客ごとの番号で識別しています)

「印刷プレビュー」ボタンはPrintという名前で、実行時以下のVBAを設定しています。
Private Sub Print_Click()
　　Dim stDocName As String
　　　　Dim bango As Long

　　　　bango = [ClirntNo]
　　　　stDocName = "R_Summary"

　　DoCmd.OpenReport stDocName, acPreview, , "ClirntNo =" & bango
　　
End Sub


また、
「F_PreviewParentMenu」は
こちらのホームページを参考にボタンのフォームをプレビューの子ウィンドウにしています。
ht　tp://hatenachips.blog34.fc2.com/blog-entry-397.html

そこで、この二つを組み合わせて
「F_Summary」で「印刷プレビュー」をクリックした際に
「F_PreviewParentMenu」が開き、なおかつ、「ClirntNo」で識別して開けないかと思っております。

宜しくお願い致しますm(_ _)m
【13081】Re:印刷設定について
回答  hatena  - 16/10/6(木) 14:11 -
引用なし
パスワード
   >ht　tp://hatenachips.blog34.fc2.com/blog-entry-397.html
>
>そこで、この二つを組み合わせて
>「F_Summary」で「印刷プレビュー」をクリックした際に
>「F_PreviewParentMenu」が開き、なおかつ、「ClirntNo」で識別して開けないかと思っております。

リンク先の２分目のサンプル「プレビューウィンドウをフォームの子ウィンドウにする」の方法を使うのですね。

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,

・・・以下略


※リンク先の３番目の方法「ボタンのフォームをプレビューの子ウィンドウにする」でよければ、下記のリンク先の方法を使えば、DoCmd.OpenReport と同じ感覚で使えるのでおすすめです。

印刷プレビューに[印刷][閉じる]ボタンを付加するOpenReport互換関数
ht tp://hatenachips.blog34.fc2.com/blog-entry-398.html
【13082】Re:印刷設定について
質問  まゆ  - 16/10/6(木) 17:07 -
引用なし
パスワード
   hatenaさん

印刷プレビューボタンですが、

Private Sub Print_Click()
　　Dim stDocName As String
　　Dim bango As Long

　　bango = [ClirntNo]
　　stDocName = "R_Summary"

　　DoCmd.OpenForm "F_PreviewParentMenu", OpenArgs:="ClirntNo =" & bango
　　
End Sub

でうまくいきましたm(_ _)m

しかし、教えていただいたリンク先(ht tp://hatenachips.blog34.fc2.com/blog-entry-398.html)

では解決している「閉じる」ボタンのエラーを解決する方法はどうすればいいのかわからず・・・・

「ボタンのフォームをプレビューの子ウィンドウにする」方法ではモジュール「Z」を使用して解決しているようなのですが、
「プレビューウィンドウをフォームの子ウィンドウにする」方法で適用する方法がわかりませんでした。。。

重ねてで申し訳ございませんが、教えていただければ非常に助かります。
【13083】Re:印刷設定について
回答  hatena  - 16/10/7(金) 15:01 -
引用なし
パスワード
   >「ボタンのフォームをプレビューの子ウィンドウにする」方法ではモジュール「Z」を使用して解決しているようなのですが、
>「プレビューウィンドウをフォームの子ウィンドウにする」方法で適用する方法がわかりませんでした。。。


F_PreviewParentMenu フォームの閉じるボタンのコードを下記に変更してください。

Private Sub cmdClose_Click()
　　On Error Resume Next
　　SetParent Reports(docName).Hwnd, Application.hWndAccessApp
　　DoCmd.Close acReport, DocName
　　DoCmd.Close acForm, Me.Name
End Sub
【13084】Re:印刷設定について
お礼  まゆ  - 16/10/7(金) 15:55 -
引用なし
パスワード
   ▼hatenaさん
ありがとうございます。
なんとかできそうですのでがんばってみます!
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
83 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078188
(SS)C-BOARD v3.8 is Free