投稿日 | : 2002/09/12(Thu) 14:11 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re: MDB内のレポートのプレビューを表示したい |
とりあえず表示するだけです。
最大化とかはプレビュー後にアクセス内部の命令で実現できると思います。
Option Explicit
Private Const Fname = "c:\db1.mdb"
Private Sub Form_Load()
Dim accOBJ As Object
Set accOBJ = GetObject(Fname)
With accOBJ
.Visible = True
.DoCmd.OpenReport "顧客情報", 2
', acViewPreview=2
End With
Set accOBJ=Nothing
End Sub