2011-11-17 68 views
0

以下代碼打印MS Access報告而不打開它進行預覽。 但是,我想運行一些代碼來修改報告,當用戶選擇打印它。在MS Access中打開時沒有預覽打印時運行VBA代碼

DoCmd.OpenReport RptName, , , "[ItemNumber]= " & Me.ItemNum 

我已經嘗試了「關於激活」,「開開」和「第」事件,但沒有人跑,我在那裏放置代碼。

每個ItemNumber都有一個關聯的圖像。每當他們點擊打印按鈕上面的代碼運行發送他們想打印的itemNumber,並在那一刻,我想插入適當的無界圖像打印在報告上。

+0

究竟什麼是你想在報表上修改?某些報表屬性只能在設計視圖中修改。 – mwolfe02

+0

感謝您在編輯中回答mwolfe的問題。據我瞭解,你想要一個圖像對象有一個動態的來源? – PowerUser

回答

3

將您的代碼放入Detail部分的Format事件中。假設你已經在你的報告中的細節部分命名爲Image1圖像控制:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) 
    Me.Image1.Picture = DLookup("ImagePath", "ImageTable", _ 
           "ItemNumber=" & Me.ItemNum) 
End Sub