[求助]誰能把在表單中預覽報表的代碼放上來,我在繁體版上用不了簡體版的東西,謝謝先

lzx-shmily

誰能把在表單中預覽報表的代碼放上來,我在繁體版上用不了簡體版的東西,謝謝先!

lzx-shmily

我用的是win98+office2000,我想可能是我的原因吧

海狸先生

我没有这种情况，我的是2003

lzx-shmily

而且右鍵也沒有反應了

lzx-shmily

不知大家有沒有這种情況?

lzx-shmily

但是我發現用這個代碼,關閉窗体後再點菜單欄,工具欄都沒有反應了

lzx-shmily

懂了。

lzx-shmily

怎麼用呢?能說一下嗎?

lzx-shmily

謝謝

海狸先生

Option Compare Database

Option ExplicitPrivate Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Declare Function ShellExecute Lib "shell32.dll" _

    Alias "ShellExecuteA" _

    (ByVal hwnd As Long, _

    ByVal lpOperation As String, _

    ByVal lpFile As String, _

    ByVal lpParameters As String, _

    ByVal lpDirectory As String, _

    ByVal nShowCmd As Long) As LongPrivate Const SW_SHOWNORMAL = 1Private Sub cmdCloseRPT_Click()

    DoCmd.Close acReport, "rpt1"

End SubPrivate Sub cmdLoadRpt_Click()

Dim mWnd As Long

    LockWindowUpdate GetDesktopWindow

   

    DoCmd.OpenReport "rpt1", acViewPreview, , , acWindowNormal

    mWnd = Reports("rpt1").hwnd

   

    ' 设置报表的父窗口为子窗体

    SetParent mWnd, Me.subRPT.Form.hwnd

   

    LockWindowUpdate False

   

   

    DoCmd.SelectObject acReport, "rpt1"

    DoCmd.Maximize

End SubPrivate Sub Command0_Click()

Dim strFile As String

    strFile = "http://bcd.accxp.com/"

    Call ShellExecute(Me.hwnd, "open", strFile, vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub

Private Sub Form_Unload(Cancel As Integer)

    DoCmd.Close acReport, "rpt1"

End Sub