Access VBA質問箱 IV

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

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


28 / 2241 ツリー ←次へ | 前へ→

【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 お礼[未読]

【13081】Re:印刷設定について
回答  hatena  - 16/10/6(木) 14:11 -

引用なし
パスワード
   >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

【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さん
ありがとうございます。
なんとかできそうですのでがんばってみます!

28 / 2241 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
975301
(SS)C-BOARD v3.8 is Free