طباعة اريد كود حفظ وطباعة

[غريب طرابلس]

بسم الله الرحمن الرحيم

السلام عليكم

الى  الاساتدة الافاضل

ابحث عن كود او طريقة   (حفظ وطباعة ) السجل حالي نسختين بدون معاينة التقرير

[نور الدين وليد]

اكتب فى الزر هذا الكود

DoCmd.RunCommand acCmdSaveRecord 
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPrintSelection 

 

 

 

[jjafferr]

وعليكم السلام 

 

ابحث عن كود او طريقة   (حفظ 

كما قال الاخ نور الدين:

DoCmd.RunCommand acCmdSaveRecord 

 

وطباعة ) السجل حالي نسختين بدون معاينة التقرير

    For i = 1 To 2
        اذا كان حقل التعريف ، مثلا ID ، اذا كان رقم:
        DoCmd.OpenReport "Report Name", , , "myID=" & Me.id
    
        اما اذا كان حقل التعريق نص :
        DoCmd.OpenReport "Report Name", , , "myID='" & Me.id & "'"
    Next i
    
    
    او
    
    
    اذا كان حقل التعريف ، مثلا ID ، اذا كان رقم:
    DoCmd.OpenReport "Report Name", acViewPreview, , "myID=" & Me.id, acHidden
    
    اما اذا كان حقل التعريق نص :
    DoCmd.OpenReport "Report Name", acViewPreview, , "myID='" & Me.id & "'", acHidden

    DoCmd.PrintOut , , , , 2
    DoCmd.close acReport, "Report Name"

 

 

جعفر

[غريب طرابلس]

السلام عليكم 

اولا اشكرك اخي  الكريم على  التواصل

 

بالنسبة للكود  فانه يطبع صفحتين ... لاكن صفحة مطبوعة وصفحة فارغة 

فما الحل في  هاد المشكل

رغم اني قد عملت كود لطباعة سابقا  فكانت نفس الكود الاخير

صفحة مطبوعة وصفحة فارغة

 

انتظر حل  من الاساتدة  الافاضل

وجزاكم الله عنا   كل  الخير

[jjafferr]

انا اعطيتك طريقتين ، فهل جربت كل طريقة على حدة ؟

[غريب طرابلس]

السلام عليكم

اهلا بيك اخي

نعم جربة الطريقتين

تطلع صفحة مطبوعة وصفحة بيضاء

ما الحل

 

[jjafferr]

هل ممكن ان ترفق التقرير لوسمحت!!

 

جعفر