لطباعة النطاقات سواء كانت محوده او غير محدوده

طباعة النطاقات سواء المحدده او غير المحددة



طباعة نطاق محدد فى ورقة العمل
ThisWorkbook.Sheets("Sheet1").Range("A1:E25").PrintOut
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر خلية فى النطاق E25



طباعة نطاق محدد كل الاعمدة فى ورقة واحدة
Application.PrintCommunication = False
With Sheets("Sheet1").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
ThisWorkbook.Sheets("Sheet1").Range("A1:E25").PrintOut
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر خلية فى النطاق E25



معاينة الطباعة لنطاق محدد فى ورقة العمل
ThisWorkbook.Sheets("Sheet1").Range("A1:E25").PrintPreview
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر خلية فى النطاق E25



معاينة الطباعة لنطاق محدد كل الاعمدة فى ورقة واحدة
Application.PrintCommunication = False
With Sheets("Sheet1").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
ThisWorkbook.Sheets("Sheet1").Range("A1:E25").PrintPreview
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر خلية فى النطاق E25



طباعة نطاق غير محدد بعدد الصفوف
Dim lastRow As Long
LastRow=ThisWorkbook.Sheets("Sheet1").Range("E" & Rows.count).End(xlUp).Row
ThisWorkbook.Sheets("Sheet1").Range("A1:E" & lastRow).PrintOut
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر عمود فى النطاق E



طباعة نطاق غير محدد بعدد الصفوف كل الاعمدة فى ورقة واحده
Application.PrintCommunication = False
With Sheets("Sheet1").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Dim lastRow As Long
LastRow=ThisWorkbook.Sheets("Sheet1").Range("E" & Rows.count).End(xlUp).Row
ThisWorkbook.Sheets("Sheet1").Range("A1:E" & lastRow).PrintOut
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر عمود فى النطاق E



معاينة الطباعة لنطاق غير محدد بعدد الصفوف
Dim lastRow As Long
LastRow=ThisWorkbook.Sheets("Sheet1").Range("E" & Rows.count).End(xlUp).Row
ThisWorkbook.Sheets("Sheet1").Range("A1:E" & lastRow).PrintPreview
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر عمود فى النطاق E



معاينة الطباعة لنطاق غير محدد بعدد الصفوف كل الاعمدة فى ورقة واحده
Application.PrintCommunication = False
With Sheets("Sheet1").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Dim lastRow As Long
LastRow=ThisWorkbook.Sheets("Sheet1").Range("E" & Rows.count).End(xlUp).Row
ThisWorkbook.Sheets("Sheet1").Range("A1:E" & lastRow).PrintPreview
اسم ورقة العمل Sheet1 - اول خلية فى النطاق A1 - اخر عمود فى النطاق E