طباعة التقرير علي وجهي الورقة

[Elsayed A Eldiasty]

السلام عليكم 

هل من الممكن عند طباعة تقرير مباشر 

ان نضع كود يقوم بالطباعة علي وجهتين الصفحة مثل الورد والاكسل

[kkhalifa1960]

استاذ @Elsayed A Eldiasty اقرأ هذه المشاركة .

 

[Elsayed A Eldiasty]

1 ساعه مضت, kkhalifa1960 said:

استاذ @Elsayed A Eldiasty اقرأ هذه المشاركة .

 

استاذنا الغالي شكراً لرد حضرتك لكن انا في اعتقادي اكيد فيه حد عمل هذه الفكرة انما ليس من المنطقي ان اقعد اقلب الورقة مع كل طباعة للتقرير زي ما هو موضح في المشاركة السابقة 

[alhourriah]

7 ساعات مضت, Elsayed A Eldiasty said:

استاذنا الغالي شكراً لرد حضرتك لكن انا في اعتقادي اكيد فيه حد عمل هذه الفكرة انما ليس من المنطقي ان اقعد اقلب الورقة مع كل طباعة للتقرير زي ما هو موضح في المشاركة السابقة 

منطقياً اتوقع الموضوع متعلق بنوع الطابعة وخصائصها، عندي طابعتين في العمل، الأولى تملك هذه الخاصية والثانية لا.

لا اتوقع تستطيع ان تطبع على وجهين اذا كانت الطابعة لا تملك هذا الخيار.

 

[Elsayed A Eldiasty]

10 دقائق مضت, alhourriah said:

منطقياً اتوقع الموضوع متعلق بنوع الطابعة وخصائصها، عندي طابعتين في العمل، الأولى تملك هذه الخاصية والثانية لا.

لا اتوقع تستطيع ان تطبع على وجهين اذا كانت الطابعة لا تملك هذا الخيار.

 

انا الطباعة عندي بتطبع علي الجانبين 

الفكرة انا عوز طريقة عند الطباعة المباشرة تقوم بالطباعة علي وجهتي الورقة 

[Foksh]

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

اول طلب نقول لآكسيس اطبع الصفحات الفردية في التقرير ، وبس تخلص طلعلي رسالة تقولي اقلب الورق ورجعه للطابعة واضغط موافق ليتم طباعة الصفحات الزوجية 😁

Private Sub CommandButton_Click()
    Dim i As Integer
    Dim rpt As Report
    Dim totalPages As Integer
    Dim response As VbMsgBoxResult
    
Set rpt = Reports![اسم_التقرير]
    
DoCmd.OpenReport "اسم_التقرير", acViewNormal    
    totalPages = rpt.Pages
    
For i = 1 To totalPages Step 2
        DoCmd.PrintOut acPages, i, i, , , acPrintAll
    Next i
    
response = MsgBox("يرجى قلب الأوراق ووضعها مرة أخرى في الطابعة. انقر 'موافق' للمتابعة.", vbOKCancel + vbInformation, "قلب الأوراق")
    
If response = vbOK Then
        For i = 2 To totalPages Step 2
            DoCmd.PrintOut acPages, i, i, , , acPrintAll
        Next i
    End If
    
DoCmd.Close acReport, "اسم_التقرير"
End Sub

جرب الفكرة دي ، وننتظر نتيجة التجربة 🤗

[alhourriah]

52 دقائق مضت, Elsayed A Eldiasty said:

انا الطباعة عندي بتطبع علي الجانبين 

الفكرة انا عوز طريقة عند الطباعة المباشرة تقوم بالطباعة علي وجهتي الورقة 

نفس الشيء، لا يختلف

عند الطباعة اعطي امر double sheet 

1 دقيقه مضت, Foksh said:

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

اول طلب نقول لآكسيس اطبع الصفحات الفردية في التقرير ، وبس تخلص طلعلي رسالة تقولي اقلب الورق ورجعه للطابعة واضغط موافق ليتم طباعة الصفحات الزوجية 😁

Private Sub CommandButton_Click()
    Dim i As Integer
    Dim rpt As Report
    Dim totalPages As Integer
    Dim response As VbMsgBoxResult
    
Set rpt = Reports![اسم_التقرير]
    
DoCmd.OpenReport "اسم_التقرير", acViewNormal    
    totalPages = rpt.Pages
    
For i = 1 To totalPages Step 2
        DoCmd.PrintOut acPages, i, i, , , acPrintAll
    Next i
    
response = MsgBox("يرجى قلب الأوراق ووضعها مرة أخرى في الطابعة. انقر 'موافق' للمتابعة.", vbOKCancel + vbInformation, "قلب الأوراق")
    
If response = vbOK Then
        For i = 2 To totalPages Step 2
            DoCmd.PrintOut acPages, i, i, , , acPrintAll
        Next i
    End If
    
DoCmd.Close acReport, "اسم_التقرير"
End Sub

جرب الفكرة دي ، وننتظر نتيجة التجربة 🤗

المشكلة استاذ @Foksh انه طالب يطبع على الوجهين بدون قلب الورق، وهذا شبه مستحيل اذا كانت الطابعة لا تدعم.

الحل الوحيد عند الطباعة اختيار خيار الطباعة المزدوجة من الطابعة نفسها

[Foksh]

4 دقائق مضت, alhourriah said:

المشكلة استاذ @Foksh انه طالب يطبع على الوجهين بدون قلب الورق، وهذا شبه مستحيل اذا كانت الطابعة لا تدعم.

الحل الوحيد عند الطباعة اختيار خيار الطباعة المزدوجة من الطابعة نفسها

هو العميل ده فاهم كويس إنه مش بيطلب من جني الفانوس السحري طلباته ولا إيه 😂🤣

 

للأسف بعض العملاء بيخليك تندم إنك طرحت عليه برنامج يحلله مشاكله.

ده حتى مش عايز يتعب نفسه ويقلب الورق ويكبس موافق 😂

بنهزر معاك يا صاحبي ، إحنا حاولنا نحل الموضوع بدون تغيير الطابعة وبدون ما نكلف العميل 🤗 .

[kkhalifa1960]

23 دقائق مضت, Foksh said:

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

اول طلب نقول لآكسيس اطبع الصفحات الفردية في التقرير ، وبس تخلص طلعلي رسالة تقولي اقلب الورق ورجعه للطابعة واضغط موافق ليتم طباعة الصفحات الزوجية 😁

ليست فكرة جانبية بل فكرة عبقرية ................ حسب معلوماتي وبحثي في جميع المواقع العربية والاجنبية المفتوحة .. الكل رامي المشكلة على الطابعة  . أما فكرتك العبقرية حلت هذه المشكلة .

وأرشحها أفضل حل وبعد اذنك أستاذ @Foksh سأستخدم فكرتك العبقرية في أعمالي . وتحيتاً شكراً لك .وطالما (الخرنفعية) نفعت زودها وانطلق .

[ابوخليل]

1 ساعه مضت, Foksh said:

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

اول طلب نقول لآكسيس اطبع الصفحات الفردية في التقرير ، وبس تخلص طلعلي رسالة تقولي اقلب الورق ورجعه للطابعة واضغط موافق ليتم طباعة الصفحات الزوجية 😁

Private Sub CommandButton_Click()
    Dim i As Integer
    Dim rpt As Report
    Dim totalPages As Integer
    Dim response As VbMsgBoxResult
    
Set rpt = Reports![اسم_التقرير]
    
DoCmd.OpenReport "اسم_التقرير", acViewNormal    
    totalPages = rpt.Pages
    
For i = 1 To totalPages Step 2
        DoCmd.PrintOut acPages, i, i, , , acPrintAll
    Next i
    
response = MsgBox("يرجى قلب الأوراق ووضعها مرة أخرى في الطابعة. انقر 'موافق' للمتابعة.", vbOKCancel + vbInformation, "قلب الأوراق")
    
If response = vbOK Then
        For i = 2 To totalPages Step 2
            DoCmd.PrintOut acPages, i, i, , , acPrintAll
        Next i
    End If
    
DoCmd.Close acReport, "اسم_التقرير"
End Sub

جرب الفكرة دي ، وننتظر نتيجة التجربة 🤗

نعم هذه هي المتبعة على الطابعات العادية

علما ان الطابعة تقوم بالمهمة لوحدها ... 

كتاب او رسالة جامعية مكونة من 500 ورقه ( وجه واحد ) والصفحات مرقمة

1- اضع 250 ورقة في درج الطابعة

2- اختار من خصائص الطابعة ( طباعة الصفحات الفردية)

3- بعد اكتمال الطباعة اقلب مجموعة الورق ( المحافظة على الترتيب نفسه)

4- اختار من خصائص الطابعة ( طباعة الصفحات الزوجية )

[Foksh]

2 ساعات مضت, kkhalifa1960 said:

ليست فكرة جانبية بل فكرة عبقرية ................ حسب معلوماتي وبحثي في جميع المواقع العربية والاجنبية المفتوحة .. الكل رامي المشكلة على الطابعة  . أما فكرتك العبقرية حلت هذه المشكلة .

وأرشحها أفضل حل وبعد اذنك أستاذ @Foksh سأستخدم فكرتك العبقرية في أعمالي . وتحيتاً شكراً لك .وطالما (الخرنفعية) نفعت زودها وانطلق .

أشكرك أستاذنا الغالي @kkhalifa1960 على كلامك الجميل ، هذا من تعليمكم استاذي الفاضل 🥰

39 دقائق مضت, ابوخليل said:

نعم هذه هي المتبعة على الطابعات العادية

علما ان الطابعة تقوم بالمهمة لوحدها ... 

كتاب او رسالة جامعية مكونة من 500 ورقه ( وجه واحد ) والصفحات مرقمة

1- اضع 250 ورقة في درج الطابعة

2- اختار من خصائص الطابعة ( طباعة الصفحات الفردية)

3- بعد اكتمال الطباعة اقلب مجموعة الورق ( المحافظة على الترتيب نفسه)

4- اختار من خصائص الطابعة ( طباعة الصفحات الزوجية )

نعم معلمي الفاضل @ابوخليل ، المبدأ نفسه ولكن دون تغيير اعدادات الطابعة 😀