VB6からアクセスのレポートをプレビューするには？

質問

おはようございます。またまた躓いたのでお助け下さい<(_ _)>VB6で、アクセス2000にパーツ名を読み書きしています。アクセスの方でレポートを作ってあるのですが、印刷はいけそうなのですが、これを印刷前にプレビューしたいのですが、
Set accApp = CreateObject("Access.Application")
accApp.OpenCurrentDatabase "C:\part-name.mdb"
accApp.DoCmd.OpenReport "パーツ情報", acViewNormal
印刷について参考にさせていただいたソースです。DoCmd.OpenReport が印刷ですよね？ここを変更するのでしょうか？よろしくお願いします<(_ _)>

回答No.2

1050 円（@1050YEN） · ベストアンサー

>マクロからのVBA変換方法とありますが、これは、アクセスの操作でしょうか？
はい。

'アクセスインスタンスを生成
　　Set accApp = CreateObject("Access.Application")

その後、好きなタイミングで
　　accApp.Visible = True
を追加してあげたらいいです。

今の状態は、「裏でAccessが起動している」状態です。
解消方法としては、Accessを表示する命令を発行するだけです。

ただし条件があります。
accAppは、モジュールの先頭で宣言する必要があります(Private や Publicなど)

※ダメ例(×)
Sub アクセス表示関数 {
　　Dim accApp as アクセス
　　Set accApp = CreateObject("Access.Application")
　　accApp.Visible = True
}

とした時、アクセス表示関数が終了と同時に、accAppが無効となり、自動的にインスタンスを破棄してしまいます。
結果、意図としないタイミングで、Accessが終了します。

※イイ例(○)
Private accApp as アクセス
Sub アクセス表示関数 {
　　Set accApp = CreateObject("Access.Application")
　　accApp.Visible = True
}

とした時、アクセス表示関数が終了しても、accAppはインスタンスを保持します。
結果、インスタンスを生成したオブジェクトが有効である限り、Accessは起動しています。

追伸：
個人情報書いたら消されると思うので、軽くだけ^^;
かれこれ7年前、学生時代にPCインストラクタをしておりました。
現在は業務系ソフト開発のお仕事です。^^;
最近は全くPGをしていなく、言語感覚(←これすごく大事だと思います。)を忘れないように、掲示板を暇さえあれば、見るようにしております。
ここに書き込みを行っている人ならわかると思いますが、「スキルがあるから回答をする」のではなく、「回答を繰り返す事でスキルをあげる」事にもつながります。
「satoshi777」さんも、質問だけでなくわかる範囲で回答していくと、結構いい勉強になりますよ^^
同じスレッドの別の人の回答を読むようになり、考え方も膨らみます。
同じ処理でも、実現方法を複数知ることで、「適した処理を選択する」という幅を持てるようになります。

なんだかんだ言っても・・・
現業務の「現実逃避」しているだけかも知れませんが^^;;;;;

お礼

ありがとうございます<(_ _)>今日は現場が主だったのでまだ試せていませんが、夜に試そうと思います。1050YENさんのおっしゃる通り、人に教えると自分も勉強になるというのはとてもよくわかります。まだまだ教えらてばかりですが(>_<)しかし、1050YENさんの説明はとてもわかりやすくて理解しやすいです。ありがとうございました<(_ _)>貴重なお時間を費やしていただき、申し訳ないです(>_<)お仕事がんばって下さい<(_ _)>また、よろしくお願いします<(_ _)>

回答No.1

1050 円（@1050YEN）

「accApp.DoCmd.OpenReport "パーツ情報", acViewNormal」
ではなく
「accApp.DoCmd.OpenReport "パーツ情報", ViewPreview」
です。

HELPを見ればわかるのですが、VBと違うAccessオリジナルのコマンドを作成する、簡単な方法を以下に記します。

マクロからのVBA変換方法

1.マクロを作成する
　※実例
　　アクション:レポートを開く
　　レポート名:パーツ情報
　　ビュー:印刷プレビュー
　　フィルタ名:
　　Where 条件式:

2.マクロを保存する
　　マクロ名:「マクロ1」

3.データベースウィンドウの「マクロ1」を選択状態

4.メニューバー
　　「ツール」→「マクロ」→「マクロをVisualBasicに変換」
　　を選択

5.標準モジュールにマクロを変換したコードが出現しています

補足

1050YENさん、お返事ありがとうございます。accApp.DoCmd.OpenReport "パーツ情報", ViewPreviewとしたのですが、プレビュー出ないです(>_<)
マクロからのVBA変換方法とありますが、これは、アクセスの操作でしょうか？ちなみに1050YENさんは、パソコン教室の先生でしょうか？教え方が上手なのでそう思いました。僕はエクセルは習ったので多少複雑な関数はわかるのですが、VBAは試験に出ないという理由で習わなかったのですが、VB6から勉強するよりVBAから勉強した方がわかりやすいのでしょうか?関係ないことまで質問してすみません<(_ _)>