Total for each page when printing

[craigg3]

I have a worksheet with about 200 rows of data and about 10 columns, but the number of rows can change periodically.
Is there a way to add a button and stick some coding behind it where it will print the worksheet and for each page that is printed it will total the column "G" for each page? Thanks.

 

[Clay Canvas]

Use macro to set footer and print setup / area

Craig,

Here's a basic macro that you can place in the workbook that will modify the footer based on a cell value just before printing. Just add a cell with a formula that sums column G and then have the macro below point to that cell.

You can add the sub "SetPrintArea" below to auto set the print area and then use the sub below called "PrintSheet" to print the active sheet to the default printer. If you want you could have a button that points to either a macro that calls the SetPrintArea sub & the PrintSheet sub or just point the button to the PrintSheet sub...

Hope it helps...

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)

SetFooter

End Sub


Sub SetFooter()

    With Worksheets("master schedule")
      .PageSetup.CenterFooter = "Data Imported On:" & vbCr & Sheets("WipMstr_Data").Range("A2").Value
    End With
     
End Sub



Sub SetPrintArea()

ActiveSheet.PageSetup.PrintArea = Range("Y3", Range("C65536").End(xlUp)).Address

End Sub



Sub PrintSheet()

    ActiveWindow.SelectedSheets.PrintOut

End Sub

 

[craigg3]

Thanks for the reply. You said to add a cell with the total for column "G" and have the macro point to that cell. Where in the code you supplied would I point it to that cell?

Thanks.