لست بحاجة الى هذه الاكواد فعندما تفتح التقرير للمعاينة اضغط على Ctrl+P
وهذا الكود اثبته كما طلبت زيادة في الفائدة
Private Sub print_KeyDown(KeyCode As Integer, Shift As Integer)
Dim stDocName As String
If KeyCode = vbKeyF12 Then
stDocName = "re1"
DoCmd.OpenReport stDocName, acNormal
End If
End Sub