تعديل على كود الطبع واضافة في حالة تكرار الطبع

[عبدالله صباح]

السلام عليكم

ممكن التعديل على كود طبع الوصل - اضافة في حالة تكرار طبع الوصل اكثر من مرة (( اعلامني بان الوصل سبق وتم الطبع ))

وبالتالي يكون لي الاختيار طبع الوصل مرة ثانية أو الغاء طبع الوصل

تعديل على كود الطبع.xlsm

[أ / محمد صالح]

جرب هذا التعديل:

If [h1] = "" Then
pp:
R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name
sh.Range("a1:h30").PrintOut
[h1] = [h1] + 1
Else
m = MsgBox("تمت الطباعة قبل ذلك" & Chr(10) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه")
If m = 6 Then GoTo pp
End If

وهو يقوم بإظهار رسالة إذا تم تفيير قيمة الخلية h1 إذا تمت الطباعة قبل ذلك

[عبدالله صباح]

السلام عليكم .. الكود لم يعمل وظهور الرسالة التالية

تعديل على كود طبع الوصل  في حالة تكرار الطبع  مرتين يعلمني بانه سبق وتم طبع الوصل (( على أساس رقم المستند )) وفي هذه الحالة يتم الاختيار أما بتكرار الطبع أو الغاء الطبع

تعديل على الكود - اضافة هل تم طبع الوصل اكثرة من مرة.xlsm

[أ / محمد صالح]

طبيعي جدا ألا يعمل الكود وأنت وضعته في موديول جديد

هو فقط تعديل لكود الطباعة

بطريقة أخرى:

يوجد في كود الطباعة السطرين الخاصين بالتصدير إلى pdf والطباعة

R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name
sh.Range("a1:h30").PrintOut

استبدلهما بما سبق يعني ضع قبلهما سطرين

If [h1] = "" Then
pp:

وضع بعدهما الباقي

[h1] = [h1] + 1
Else
m = MsgBox("تمت الطباعة قبل ذلك" & Chr(10) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه")
If m = 6 Then GoTo pp
End If

وطبعا هذا على كلامك السابق

لكن بعد تحديد (على أساس رقم المستند ) فالموضوع سيختلف تماما

وهذا كود إجراء الطباعة والتصدير كاملا module4

Sub RectangleRoundedCorners222_Click()
'On Error Resume Next
'Sheets("حساب").Range("A1:h10").ExportAsFixedFormat xlTypePDF, Filename:="e:\pdf\" & Sheets("حساب").Range("b3").Value & Sheets("حساب").Range("a3").Value, openafterpublish:=True
Dim sh As Worksheet
Dim R
Dim fil_name
Set sh = ThisWorkbook.Worksheets("حساب")
fil_name = sh.Range("b3") & " " & sh.Range("a3")
Set R = sh.Range("a1:h10")
If IsError(Application.Match(Range("a3"), Range("i:i"), 0)) Then
pp:
R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name & ".pdf"
sh.Range("a1:h30").PrintOut
Range("i" & Range("i" & Rows.Count).End(xlUp).Row + 1).Value = [a3]
Else
m = MsgBox("تمت الطباعة قبل ذلك" & Chr(10) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه")
If m = 6 Then GoTo pp
End If

End Sub

بالتوفيق

[عبدالله صباح]

تسلم .. جزيت خير , هو المطلوب .. اعتذر لعدم ايصال المطلوب في المشاركة الاولى

 

[أ / محمد صالح]

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا وزادنا علما