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

lzx-shmily

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

海狸先生

你的意思是。。。DoCmd.OpenQuery "报表", acViewPreview這樣嗎？

lzx-shmily

不是的,我是說trynew的在子窗體中預覽報表的代碼,能放上來嗎?

海狸先生

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

lzx-shmily

謝謝

lzx-shmily

怎麼用呢?能說一下嗎?

lzx-shmily

懂了。

lzx-shmily

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

lzx-shmily

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

lzx-shmily

而且右鍵也沒有反應了