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

[طلعت محمد حسن]

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

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

وشكرا لكم

طباعة.rar

[أبو حنــــين]

السلام عليكم

ضع هذا الكود في زر الطباعة

Private Sub CommandButton1_Click()
With ورقة1
Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 5
.Cells(Last, i) = Me.Controls("TextBox" & i).Value
Next
Unload Me
.PrintPreview
End With
End Sub

تم تعديل ديسمبر 5, 2013 بواسطه أبو حنين

[طلعت محمد حسن]

اخي ابو حنين

اللة يحفظك من كل سوء هذا هو المطلوب

اشكرك جزيل الشكر

[إبراهيم ابوليله]

اخى ابو حنين

ماذا لو كان هناك اكثر من صف للفاتوره

كيف سيتم الترحيل باستخدام

Me.Controls

 

 

طباعة.rar

[أبو حنــــين]

السلام عليكم

اخي ابراهيم يصبح الكود كالتالي

Private Sub CommandButton1_Click()
With ورقة1
Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1

For i = 1 To 5
.Cells(Last, i) = Me.Controls("TextBox" & i).Value
.Cells(Last + 1, i) = Me.Controls("TextBox" & i + 1).Value

Next
Unload Me
.PrintPreview
End With
End Sub

[إبراهيم ابوليله]

اخى ابوحنين

مشكورا على الاهتمام

ومتابعة الموضوع

ولكن

يحدث خطأ فى ترحيل الصف الثانى

من الفورم

ارجو  مشاهدة المرفق

 

طباعة.rar

[أبو حنــــين]

السلام عليكم

بالفعل عوض اضافة العدد 5 اضفت العدد 1

و هذا هو التصحيح

Private Sub CommandButton1_Click()
With ورقة1
Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1

For i = 1 To 5
.Cells(Last, i) = Me.Controls("TextBox" & i).Value
.Cells(Last + 1, i) = Me.Controls("TextBox" & i + 5).Value

Next
Unload Me
.PrintPreview
End With
End Sub

[إبراهيم ابوليله]

اخى ابو حنين

ايه الجمال والحلاوه دى

اكواد فى غايه الروعه والبساطه

يبقى عمل شئ اخر

وهو الاستدعاء للبيانات بمجرد الكتابه فى

التيكست بوكس الخاصه بالبحث

طباعة.rar

[ابو محمد العربي]

اخى ابو حنين

ايه الجمال والحلاوه دى

اكواد فى غايه الروعه والبساطه

يبقى عمل شئ اخر

وهو الاستدعاء للبيانات بمجرد الكتابه فى

التيكست بوكس الخاصه 

السلام عليكم بارك الله فيكم 

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

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

[إبراهيم ابوليله]

للرفع

[أبو حنــــين]

السلام عليكم

اخي ابراهيم

هذا الكود يقوم بجلب البيانات عند كتابة رقم الكتاب

مع الملاحظة انه يجلب بيانات سطرين متتالين فقط

Private Sub sear_AfterUpdate()
With ورقة1

    Last = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 4 To Last: For ii = 1 To 5
    If CStr(sear) = CStr(.Cells(i, 1)) Then
    Me.Controls("TextBox" & ii).Value = .Cells(i - 1, ii)
    Me.Controls("TextBox" & ii + 5).Value = .Cells(i, ii)

End If: Next: Next: End With
End Sub

[إبراهيم ابوليله]

أخى ابو حنين

كود جميل ورائع

بارك الله فيك

ولكن ماذا

لو كان ادخال البيانات يتم بدايه من

العمود الثان

اى ان العمود الاول يكون فارغا ليس

به اى بيانات

كيف سيكون شكل كود

ادخال البيانات.

وكود

الاستدعاء

 

طباعة.rar

[دغيدى]

أخى أبو حنين

قمت بحذف المشاركات المزعجة مرتين