مشكلة في كود الطباعة

[علي المصري]

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

ثم بالضغط على ok يتم الطباعة

 

ولكن في بعض الأحيان احتاج إلى إلغاء الطباعة وهنا هي المشكلة

عند الضغط على cancle تتم ايضا الطباعة ولا يلغى عملية الطباعة

 

نرجوا من حضراتكم تقييم الكود وتصحيح الخطأ

 

شكرا

Sub Macro6()
'
' Macro6 ãÇßÑæ
'

'
   Application.ScreenUpdating = False
   Sheets("ALIELBASRY").Select
    Range("A11:T65").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-12
    Range("A11").Select
    ActiveSheet.Range("$A$11:$T$65").AutoFilter Field:=1, Criteria1:="<>"
    Range("E12").Select
        Sheets("ALIELBASRY").Select
    Range("E5:P5").Select
 Application.Dialogs(xlDialogPrinterSetup).Show
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Sheets("Data").Select

End Sub

[رجب جاويش]

السلام عليكم

أخى الفاضل

جرب الكود بعد هذا التعديل

Sub Macro6()
'
' Macro6 a~C,?N~?
'

'
   Application.ScreenUpdating = False
   Sheets("ALIELBASRY").Select
    Range("A11:T65").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-12
    Range("A11").Select
    ActiveSheet.Range("$A$11:$T$65").AutoFilter Field:=1, Criteria1:="<>"
    Range("E12").Select
        Sheets("ALIELBASRY").Select
    Range("E5:P5").Select
 Application.Dialogs(xlDialogPrinterSetup).Show
  ansr = MsgBox("هل تريد اتمام عمليه الطباعة", vbYesNo, "طباعة")
  If ansr = vbNo Then GoTo 1
  
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Sheets("Data").Select

1 End Sub

[علي المصري]

شكرا  استاذ رجب على الاهتمام

قمت بالتجربة

ولكن غير الرقم 1 إلى

 

 

 

1  Sheets("Data").Select

حتى لا يظهر الصفحة المراد طباعتها  وهي صفحة مخفية

 

 

 

وبعدها خطرت لي ان اغير امر الطباعة إلى التالي

 

Application.Dialogs(xlDialogPrint).Show

 

وجربتها والحمد لله ادت المطلوب

 

فاصبح الآن بفضل الله ومساعدتكم اصبح لدينا حلان

 

 

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