[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/04/28(Fri) 10:54
投稿者名:たかやん
Eメール:000@myad.jp
URL :
タイトル:
アクセスを開く時のダイアログを消したい!?
いつもお世話になっております。
下記の内容にて悩んでおります。ご存知の方は是非ともご教授をお願いいたします。

まずは開発環境なのですが
XP pro SP2
オフィス 2003
VB6.0 SP6

アクセスにてprint.mdbと言うファイルを作成して
その中のレポートにtagと言う名前のレポートを用意してあります。

VB側から下記の内容でレポートを印刷させようとするのですが、
どうしてもアクセスファイルを開く時のダイアログ
「キャンセル」「開く」「詳細」
の画面が一度出て、開くをクリックすると印刷が開始され
アクセスは開かずにVB側に戻ります。

このアクセスのダイアログを開かずに印刷だけ行う方法を知りたいのです・・・

料金がかかってもいいので、お忙しい中大変恐縮ですが、ご教授をお願いいたします。



Private Sub Command1_Click()
    Dim obj As Access.Application
    Dim sz_ReportID As String

        Set obj = GetObject(App.Path & "\print.mdb")
        obj.DoCmd.OpenReport "tag"

        obj.Quit
        Set obj = Nothing
End sub


他にもデザイナを使ってなど挑戦中で、そちらは今現在余白設定が出来ないくらい
で他に問題はないのですが、どちらかスムーズに設定出来た方を採用しようかと検討
しております。

是非よろしくお願いいたします。

投稿時間:2006/04/28(Fri) 12:24
投稿者名:matsu
Eメール:
URL :
タイトル:
Re: アクセスを開く時のダイアログを消したい!?
> VB側から下記の内容でレポートを印刷させようとするのですが、
> どうしてもアクセスファイルを開く時のダイアログ
> 「キャンセル」「開く」「詳細」
> の画面が一度出て、開くをクリックすると印刷が開始され
> アクセスは開かずにVB側に戻ります。
>  
> このアクセスのダイアログを開かずに印刷だけ行う方法を知りたいのです・・・
>  
Access2000のヘルプですが、
DoCmd.OpenReport reportname[, view][, filtername][, wherecondition]

viewにacViewNormalを指定すると、レポートが直ちに印刷されます。この引数を指定しないと、定数
acViewNormal (既定値) が使われます。

確認はしてないですがviewにacViewNormalを指定してみてはいかがでしょう?