Sub printall()
On Error GoTo 1
Range("o3").Select
ActiveCell.FormulaR1C1 = "1"
kh_shap_add
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 1
kh_shap_add
ActiveWindow.SelectedSheets.PrintOut
Loop Until ActiveCell.Value = Range("C1").Value
Range("a1").Select
1 End Sub
هذا كود اخر لطباعة الشهادات 0 والجديد الذى يتميز به هذا الكود انه يضيف دوائر للشهادات وينطبق عليه الشرح الذى سبق لاخى ايسم +
Loop Until ActiveCell.Value = Range("C1").Value ( تعنى تتالى الطباعة حتى المدى المحدد فى C1 ( اى اخر رقم فى الشهادات هو الرقم المكتوب فى C1 ) )
و ايضا O3 تعنى المدى المتغير المرتط بالقائمة المنسدلة 0 الكود للا ستاذ خبور
تحياتى