أريد المساعدة في طباعة تقارير دفعة واحدة حسب الكمبوبوكس

يا إخوان هل من مساعدة .

يا اخواني محتاج مساعدتكم

السلام عليكم أخي العزيز ورحمة الله وبركاته

في البداية ضع الكود التالي في زر الأمر:

Private Sub printeF_Click()
Dim myCopies As Integer
Dim stdocname As String
stdocname = "R1"
myCopies = 12

DoCmd.OpenReport stdocname
Set rpt = Reports(stdocname)
rpt.Printer = Application.Printers("The Name Of Printer")
With Reports(stdocname).Printer
      .Orientation = acPRORLandscape
End With

With DoCmd
    .SelectObject acReport, stdocname, True
    .PrintOut acPrintAll, , , , myCopies
End With

End Sub

ليس لدي طابعة جرب هذا الكود وأفدنا حتى نساعدك

أتمنى لك التوفيق

أو ضع الكود التالي:

If Me.txtPrinter.Column(1) = "شامل" Then
DoCmd.OpenReport "R1", acViewPreview
DoCmd.PrintOut , , , , 12
End If

If Me.txtPrinter.Column(1) = "محدد" Then
DoCmd.OpenReport "R1", acViewPreview
DoCmd.PrintOut , , , , 6
End If

لقد تم معالجة المشروع بناء لطلبك

khodor - Test.rar

أخي الغالي بارك الله فيك وفي مالك وعلمك وذريتك

الله لا يحرمك الجنة ويحفظك ويسعدك .

تقبل فائق تقديري واحترامي .

أخي الغالي

لكن هذا الكود يكرر التقرير رقم 1 عدد 12 مرة في شامل و 6 مرات في محدد .

بينما المطلوب هو طباعة التقارير من 1 - 6  في محدد . وتكرارها في شامل .

تقبل فائق تقديري واحترامي .