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

[zyad zyad]

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

اتقدم بالشكر لكل استاذتى الكرام

عندى جدول فى انواع الطباعة محتاج كود عند اختيار طباعة حرارى يطباعة التقرير بتعها

وعند اختيار طباعة A5 يطباعة التقرير بتعها كل هذا على زار واحد

 

[M.Abd Allah]

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

هتعمل نموذج فيه كمبوبوكس لتحديد نوع الطابعه نفترض اسمه cmbPrintType وتخلى مصدر الصف بتاعه الطابعات من جدول الطابعات بتاعك 

وتعمل زار للطباعه نفترض أنه btnPrint

وتخلي ده الكود بتاعه 

Private Sub btnPrint_Click()

    Dim printType As String

 

    ' تحقق من أن هناك قيمة مختارة في مربع التحرير والسرد

    If IsNull(Me.cmbPrintType) Then

        MsgBox "الرجاء اختيار نوع الطباعة.", vbExclamation

        Exit Sub

    End If

 

    ' احصل على نوع الطباعة المختار

    printType = Me.cmbPrintType.Column(1)

 

    ' طباعة التقرير بناءً على نوع الطباعة

    Select Case printType

        Case "طباعة حرارى"

            DoCmd.OpenReport "ThermalPrintReport", acViewPreview ' استبدل "ThermalPrintReport" باسم تقرير الطباعة الحرارية

 

        Case "طباعة A5"

            DoCmd.OpenReport "A5PrintReport", acViewPreview ' استبدل "A5PrintReport" باسم تقرير طباعة A5

 

        Case Else

            MsgBox "نوع الطباعة غير معروف.", vbExclamation

 

    End Select

End Sub