پرسش صفحه بندی در اکسل و بررسی چاپ جمع یک تعداد رکورد های ستون مورد نظر در پایین و بالای صفحه

[jefmas]

با سلام خدمت شما سروران عزیز
برای محاسبه اضافه کاری پرسنل سندی رو اماده کردم که می بایست به هنگام چاپ جمع ستون مبلغ اضافه کاری در انتهای هر صفحه و ابتدای صفحه بعد چاپ شود
این کار را با قرار دادن جمع در جلوی رکورد انتهای / ابتدای صفحه می توان انجام داد ولی می خوام بدونم میشه بطور اتوماتیک و با نوشتن کد یا دستوری در پرینت انجام شود؟
منظورم اینه که وقتی فونت/سایز فونت تغییر می کنه نمیشه تکیه کرد بر اون چیزی که گفتم میخوام طوری باشه همیشه و باهرنوع فونت و سایزی اینکار انجام بشه

ممنون از شما

[jefmas]

با سلام خدمت شما سروران عزیز
برای محاسبه اضافه کاری پرسنل سندی رو اماده کردم که می بایست به هنگام چاپ جمع ستون مبلغ اضافه کاری در انتهای هر صفحه و ابتدای صفحه بعد چاپ شود
این کار را با قرار دادن جمع در جلوی رکورد انتهای / ابتدای صفحه می توان انجام داد ولی می خوام بدونم میشه بطور اتوماتیک و با نوشتن کد یا دستوری در پرینت انجام شود؟
منظورم اینه که وقتی فونت/سایز فونت تغییر می کنه نمیشه تکیه کرد بر اون چیزی که گفتم میخوام طوری باشه همیشه و باهرنوع فونت و سایزی اینکار انجام بشه

ممنون از شما

چرا کسی جواب سوال منو نمیده؟؟؟؟؟؟؟؟؟؟؟

[iranweld]

با سلام

در فایل پیوست با استفاده از insert break page و با مشخص کردن تعداد سطر در ماکرو صفحات در پرینت تقسیم بندی میگردد و جمع ستون A هر صفحه در گوشه سمت چپ درج میگردد

برای مشخص کردن تعداد سطر در یک صفحه مقدار X را در ماکرو تغییر دهید

Private Sub CommandButton1_Click()

ActiveSheet.ResetAllPageBreaks
    
    Columns("M:M").ClearContents
    
    z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
    
    x = 27
    
    For i = x To z1 Step x
    
    Range("n" & i).Select
    
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
  
  
  If i = x Then
  
 Range("m" & i - 1) = "=sum(a" & i - (x - 1) & ":a" & i - 1 & ")"
 
  Else
  
  Range("m" & i - 1) = "=sum(a" & i - x & ":a" & i - 1 & ")"
  
  End If
  
   Next
    
End Sub 

[rjfri]

با درود
و با کسب اجازه از استاد عزیز iranweld
فایل پیوست را ملاحظه کنید. در ستون h کلیدی قرار داده شده تا تعداد ردیف هر صفحه مشخص گردد. در b1 شما تعداد ردیفی را که میخواهید در هر صفحه تکرار شود را مشخص نمایید

[rjfri]

چنانچه انباشته صفحات مد نظر شماست فایل پیوست را ملاحظه کنید