طباعة الصفحات الفردية لتقرير بزر أمر والصفحات الزوجية بزر آخر

[mouhamad.rouabha]

السلام عليكم ورحمة الله وبركاته.

 

عندي تقرير اسمه ReportFac و نموذج اسمه FormFac يحتوي على زري أمر Btn1 وBtn2.

 

المطلوب:

 

1ـ عند الضغط على زر الأمر Btn1 تتم طباعة الصفحات الفردية فقط من التقرير ReportFac.

2ـ عند الضغط على زر الأمر Btn2 تتم طباعة الصفحات الزوجية فقط من التقرير ReportFac.

 

جزاكم الله خيرا.

[mouhamad.rouabha]

هل من اجابات ؟

[ابوخليل]

تفضل 

قم بتوظيف الاوامر من خلال القائمة المختصرة عند عرض التقرير للمعاينة

Public Function PrintEvenPages()
   Call PrintOddEven(False)
End Function
Public Function PrintOddPages()
   Call PrintOddEven(True)
End Function
Private Sub PrintOddEven(ByVal binOdd As Boolean)
Dim rpT As Report
Dim intPages As Integer
Dim intPage As Integer
Dim intStart As Integer
On Error GoTo ErrLine
   Set rpT = Screen.ActiveReport
   intPages = rpT.Pages
   If binOdd Then
      intStart = 1
   ElseIf intPages = 1 Then
      MsgBox "There are no even pages to print.", vbExclamation, "One page report"
      GoTo ExitLine
   Else
      intStart = 2
   End If
   'check for only one page
   For intPage = intStart To intPages Step 2
      DoCmd.PrintOut acPages, intPage, intPage, acHigh, 1
   
   Next
ExitLine:
   On Error Resume Next
   Set rpT = Nothing
   Exit Sub
ErrLine:
   'Call ReportError("PrintOddEven")
   Resume ExitLine
End Sub