أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





طباعة الصفوف الثلاثة الأولى المخفية

اضافة لكود الطباعة لكي يقوم بطباعة الصفوف الثلاثة الأولى المخفية مع بقائها مخفيه عند الانتهاء من الطباعه. وشكرا جزيلا لج ..



06-02-2021 10:55 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

اضافة لكود الطباعة لكي يقوم بطباعة الصفوف الثلاثة الأولى المخفية مع بقائها مخفيه عند الانتهاء من الطباعه. وشكرا جزيلا لجهودكم جميعا 
مشاركة مكررة ... تـــم بالفعل حذف المشاركة الأخرى , من فضلك انتبه لعدم تكرار نفس المشاركات



 


Duplicate post ... The other post has already been deleted, please be careful not to duplicate the same posts


 








 
 
  ملفي.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(833.029) KB


08-02-2021 09:33 صباحا
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif طباعة الصفوف الثلاثة الأولى المخفية
Try This Code

Option Explicit
Sub Hide_then_Print()
Dim LR%
 
 With Sheets("موازنة 2020")
   LR = .Cells(Rows.Count, 1).End(3).Row
  .Rows("1:3").Hidden = False
  .PageSetup.PrintArea = _
  .Range("A1:F" & LR).Address
  
  .PrintPreview             ' <<<==== Change to .PrintOut
  
  .Rows("1:3").Hidden = True
  End With
End Sub

08-02-2021 11:36 صباحا
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif طباعة الصفوف الثلاثة الأولى المخفية
شكرا جزيلا استاذ سليم العزيز  هل من الممكن اضافة الكود ادناه الى الكود الموضوع مره قبل امر الطباعه ومره اخرى بعد امر الطباعه 
 Not Rows("1:3").Hidden = Rows("1:3").Hidden

كود الموضوع
 Option Explicit
Sub Export_Print_active_sheet()
Dim Sh As Worksheet, r As Range, F, Y, D, S As String, I As Integer
Set Sh = ActiveSheet
Application.ScreenUpdating = False
On Error Resume Next
    Set r = Sh.Range(Sh.PageSetup.PrintArea)
    F = "D:الارشيف"
    Y = F & "" & Format(Now(), "yyyy-MM") & ""
    D = Y & "" & Format(Now(), "yyyy-MM-DD") & ""
    On Error Resume Next
    MkDir F: MkDir Y: MkDir D
    r.CopyPicture xlScreen, xlPicture
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Temp"
' السطر التالي للعداد
    I = 1: S = D & Dir(D): Do While S <> D: I = I + 1: S = D & Dir(): Loop
    With ActiveSheet
        .Shapes.AddChart.Select
        .Shapes("Chart 1").Width = r.Width: .Shapes("Chart 1").Height = r.Height
        With ActiveChart: .Paste
        .Export Filename:=D & "" & I & " " & Sh.Range("D6") & "      " & Format(Now(), "DD-MM-yyyy") & "." & "png", Filtername:="png"
        Sh.PrintOut Copies:=0, Collate:=True, IgnorePrintAreas:=False
        End With
    End With
Application.DisplayAlerts = False
    Sheets("Temp").Delete
    Application.GoTo Sh.Range("D6")
Application.DisplayAlerts = True
End Sub




الكلمات الدلالية
طباعة ، الصفوف ، الثلاثة ، الأولى ، المخفية ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:53 صباحا