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

[mahmoud nasr alhasany]

Private Sub Image1_Click()
Sheet5.Select
 Cells.Select
  Sheet5.Range("a1:h3999").ClearContents
    Selection.Clear
    Range("A1").Select
Application.ScreenUpdating = False
Sheet5.Cells(1, 1) = " من تاريخ " 
Sheet5.Cells(1, 2) = Me.TextBox1
Sheet5.Cells(2, 1) = " الى تاريخ "
Sheet5.Cells(2, 2) = Me.TextBox2
Sheet5.Cells(1, 4) = "اسم المخزن"
Sheet5.Cells(1, 5) = ComboBox1
Sheet5.Cells(2, 4) = "اسم الصنف" 
Sheet5.Cells(2, 5) = ComboBox2
Sheet5.Cells(1, 6) = " رصيداول مدة "
Sheet5.Cells(2, 6) = TextBox3
Sheet5.Cells(3, 1) = "رقم المستند"
Sheet5.Cells(3, 2) = "التاريخ"
Sheet5.Cells(3, 3) = "نوع الحركة"
Sheet5.Cells(3, 4) = "اسم المخزن"
Sheet5.Cells(3, 5) = "اسم الصنف"
Sheet5.Cells(3, 6) = "شراء"
Sheet5.Cells(3, 7) = "بيع"
Sheet5.Cells(3, 8) = "الرصيد"
a = Sheet5.Range("d500").End(xlUp).Row
For I = 0 To Me.ListBox1.ListCount - 1
For x = 0 To 7
Sheet5.Cells(I + 4, x + 1) = Me.ListBox1.List(I, x)
Next x
Next I
Unload Me
Sheet5.PrintPreview
Sheet5.Select
End Sub

مساعدة فى تنسيق ورقة العمل  sheet5

بحيث تكون منسقة فى الطباعة

فعند الاستعلام بأسم المخزن واسم الصنف بين تاريخين مع استخدام امر بحث من option

تكون ورقة الطباعة بشكل مسطر ومنسق

 

 

كرت الصنف 2024.xlsm

تم تعديل يوليو 5 بواسطه mahmoud nasr alhasany

[محمد هشام.]

 

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

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

تم تعديل يوليو 4 بواسطه محمد هشام.

[mahmoud nasr alhasany]

رجاء اتبع الاوامر مثل مافى الصوره

يوجد خياران بحث او بحث الكل

رجاء اختر بحث فقط

ملحوظة أمر الطباعة أعلى الفورم على شكل طابعه

وهذه شكلها بعد الطباعة بدون تنسيقات

تم تعديل يوليو 4 بواسطه mahmoud nasr alhasany

[محمد هشام.]

تمام ادن ما هو التنسيق المتوقع 

 

[mahmoud nasr alhasany]

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

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

[محمد هشام.]

ادن اخي الكريم يمكنك الابداع في ظبط التنسيقات المرغوبة وان شاء الله سنحاول مساعدتك في اظافتها لوقة الطباعة بعد كل استعلام بطريقة ما 

[mahmoud nasr alhasany]

مثل هذه

تم تعديل يوليو 4 بواسطه mahmoud nasr alhasany

[محمد هشام.]

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

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

Private Sub Image1_Click()
Set f2 = Sheets("Sheet5")
Application.ScreenUpdating = False
f2.[A4:H10000].ClearContents
r1 = TextBox1.Value: r2 = TextBox2.Value: r3 = TextBox3.Value: r4 = ComboBox1.Value: r5 = ComboBox2.Value

hrd1 = Array("من تاريخ :", r1, " ", "اسم المخزن :", r4, "رصيداول مدة :")
hrd2 = Array("الى تاريخ :", r2, " ", "اسم الصنف :", r5, r3)
Titres = Array("رقم المستند", "التاريخ", "نوع الحركة", "اسم المخزن", "اسم الصنف", "شراء", "بيع", "الرصيد")

f2.[A1].Resize(1, 6) = hrd1
f2.[A2].Resize(1, 6) = hrd2
f2.[A3].Resize(1, 8) = Titres

  a = Me.ListBox1.List
  f2.[A4].Resize(UBound(a) + 1, UBound(a, 2) + 1) = a
  Unload Me
  Set Rng = f2.Range("A1").CurrentRegion
  f2.PageSetup.PrintArea = Rng.Address
  f2.PrintPreview
End Sub

تم تعديل يوليو 6 بواسطه محمد هشام.

[mahmoud nasr alhasany]

لقد ارفقته بالفعل وتم تعديل الملف أعلى المنشور وارفقت الصوره بالتنسيق المطلوب 

وشكرا لك احسنت هذا هو المطلوب 

هل تقوم بمساعدتى فى اكمال هذا الموضوع وجعله يقوم بتصدير البيانات إلى وورد أو بى دى اف 

يوجد اتنين button 

واحده خاصه بالورد والثانيه بى دى اف

تم تعديل يوليو 6 بواسطه mahmoud nasr alhasany

[حسونة حسين]

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

5 ساعات مضت, mahmoud nasr alhasany said:

بتصدير البيانات إلى وورد أو بى دى اف 

يوجد اتنين button 

واحده خاصه بالورد والثانيه بى دى اف

هذا موضوع اخر اخي محمود