كود طباعة بترقيم تلقائي للصفحات ،

[محمد الزريعي]

طبعاً اليوم  أردت اطبع  ( نموذج  عدة صفحات )  بحيث تكون كل صفحة ليوم  واحد فقط . اي انني اكتب فيها التاريخ 

وصعب جداً انني اغير في النموذج التاريخ لمدة شهرين . 

فقمت بعمل الكود التالي ليقوم بطباعة النموذج مع تغيير التاريخ تلقائياً  مع استثناء يوم الجمعة والسبت : 

أولاً : قم بأنشاء فورم 

ثانياً : قم بأنشاء تكست بوكس وزر داخل الفورم 

ثالثاً : ضع هذا الكود داخل الزر . 

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'كود لايقاف اهتزاز الشاشة
Application.DisplayAlerts = False 'كود منع الرسائل التحذيرية
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
r = TextBox1.Value
    If Not IsNumeric(r) Then
           TextBox1.Value = ""
           GoTo neha
    End If
   
     dat = Date
        For i = 1 To r
            ActiveSheet.Range("D2").Value = dat
              xx = Weekday(dat)
              If xx = 6 Or xx = 7 Then
              egaza = egaza + 1
              Else
              ActiveSheet.PrintOut
              End If
         dat = dat + 1
        Next i
    Unload Me
neha:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.Calculation = xlAutomatic
End Sub

يستفاد من هذا الكود لمن يريد طباعة  صفحات بأرقام متسسلسة زي الفواتير وما شابها  مع تحديد مكان الخلية . 

هذا الكود مشاركة فقط . في حاجة بسيطة وهي .. عندما اطبع تظهر  رسالة ( امر الطباعة كل مرة  يتغير فيها الرقم ) تطبع طبيعي ولكن الرسالة مزعجتني شوي . 

اتمنى من لدية فكرة في اخفاء هذه الرسالة . يشاركني الموضوع وشكراً . 

 

 

تقرير الاتصالات.rar

[ياسر خليل أبو البراء]

أخي محمد 

عن أي رسالة تتحدث ..جربت الكود ولا يوجد رسائل ..

حدد بالضبط المشكلة أو وضح بالصور ما تقصده

[عماد محمد غازى محمد رحمة]

ماشاء الله عليك

كل يوم ننهل من علمك المزيد

وفقك الله لما يحب ويرضى

[محمد الزريعي]

رسالة الطباعة أخي ياسر خليل أبو البراء   بارك الله فيك  استاذي الغالي .. 

 

بمعنى أخر : عندما تقوم بعمل طباعة من ملف ورد او اكسل أو اي ملف خارجي  بدون مايكرو او  ..

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

اريد ايقاف هذه الرسالة .. هل بالامكان او لا .. 

 

-----------------

الرسالة التي تظهر بعد تنفيذ امر الطباعة  وقبل تخزين  ورقة الطباعة في ذاكرة الطابعة .. 

اي ريدة يرسل امر الطباعة : بدون ما تظهر رسالة على الكمبيوتر لا حس والا خبر ..  بس مجرد ما اضغط على موافق تشتغل الطابعة .