[تمت الاجابة] طباعة بيانات السجل الحالي على ملف وورد

[ahm_0072]

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

Private Sub أمر97_Click()

Dim WordObj As Object

Set WordObj = CreateObject("Word.Application")

WordObj.Documents.Open "G:\عقد.doc"

WordObj.PrintOut Background:=False

WordObj.Quit

Set WordObj = Nothing

End Sub

فهل من حل لهذه المسأله علماً بأنني لست خبيراً بأكواد VB

[ابوخليل]

انظر الى هذا المثال عملته بالامس لاحد الاخوة آمل ان تجد فيه ما يفيدك

تصدير الى وورد.rar

[ahm_0072]

في البداية أود أن أشكر الأخ أبو خليل على اهتمامه ورده على موضوعي والمرفق فيه أكثر مما أطلب فقد تعلمت منه أيضا جزئية تحويل الرقم الشخصي في خانات بعد تقسيم الرقم إلى بايت .. أفادكم الله أ/أبو خليل ولك مني عظيم الشكر