امر طباعة

[أبو جاسم]

هل أقدر اعمل معادله او امر طباعه هنا بحيث انه هو يجيب كل المراسي الموجودة في الورقة Renew Report في العمود B
وبعدين يطبعهم واحده واحده في مكان الخانة الزرقاء

نادي الخيران لليخوت.xlsx

[حسين مامون]

تفضل 

الكود 

Option Explicit

Sub PRINT_OUT()
Dim ws As Worksheet
Set ws = Sheets("Renew Report")
Dim lr As Long
Dim x
Application.ScreenUpdating = False
lr = ws.Cells(Rows.Count, 3).End(3).Row
With Sheets("renew")
For x = 2 To lr
  .Range("G8").Value = ws.Cells(x, "b")
  .Range("B4").Value = ws.Cells(x, "c")
  .Range("B8").Value = ws.Cells(x, "d")
  .Range("G12").Value = ws.Cells(x, "k")
  .Range("B14").Value = ws.Cells(x, "r")
  .Range("a1:h26").PrintOut
If .Range("G8") = "" Then Exit For

Next x
End With
Application.ScreenUpdating = True

End Sub

الملف

Ù_ادÙ_ اÙ_Ø®Ù_راÙ_ Ù_Ù_Ù_Ø®Ù_ت.xlsm

[أبو جاسم]

جزاك الله خير

ما شاء اله الف شكر لحضرتك

الله يبارك فيك اخي الكريم

هل أقدر اعمل معادله او امر طباعه هنا بحيث انه هو يجيب كل المراسي الموجودة في الورقة Renew Report في العمود B
وبعدين يطبعهم واحده واحده في مكان الخانة الزرقاء

[حسين مامون]

هذا ما يقوم به الكود بالظبط

يعني عند الضغط على الزر يطبع مرس واحد ويمر لطباعة الاخرى وهكذا حتى النهاية