Que me imprima el subtotal en cada hoja al imprimir

Espero estés realmente bien.

¿Cómo determinas donde están los subtotales? ¿Eso es siempre estático en la fila 4?

¿El libro tiene mas filas que las que vos mencionas?

Gracias por atender mi pregunta

Por Ejemplo:

Que me Imprima cada 15 Lineas Empezando de A1 y terminando en A15 y aca genere el subtotal y de A16 A A30 genere otro sub total.

De A31 a A45 En este punto final Genere el total de la columna A

Todo esto en un formulario.

De antemano

Muy Agradecido

Atentamente.

Vicam

Espero estés realmente bien.

Te paso un código que hace lo que vos estas solicitando.

Sub Macro2()
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "GrupoBio® informa: Se está iniciando un proceso interno. Por favor espere."
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Range("C17").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
Range("C17").Select
Selection.Font.Bold = True
Range("A17").Select
ActiveCell.FormulaR1C1 = "SUBTOTAL"
Range("A17").Select
Selection.Font.Bold = True
Rows("33:33").Select
Selection.Insert Shift:=xlDown
Range("C33").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
Range("C33").Select
Selection.Font.Bold = True
Range("A17").Select
Selection.Copy
Range("A33").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C48").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)+R[-15]C+R[-31]C"
Range("A48").Select
ActiveCell.FormulaR1C1 = "TOTAL "
Range("A48:C48").Select
Selection.Font.Bold = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Rows("17:17").Select
Selection.Delete Shift:=xlUp
Rows("32:32").Select
Selection.Delete Shift:=xlUp
Rows("46:46").Select
Selection.Delete Shift:=xlUp
Range("a1").Select
Application.ScreenUpdating = True
Application.StatusBar = "GrupoBio® informa: Proceso interno finalizado con éxito."
End Sub

Excelente es lo que necesito, pero, las sumas la tendrían que ser en toda la columna, como puedo hacer sin hacer formula por formula para que me sume hasta el final ?

Te Agradezco

atentamente.

Vicamp

Perdón pero no te entiendo esta ultima parte.

El procedimiento esta bien, lo único que tengo que hacerlo hasta la ultima celda de la hoja

Bendiciones

Atentamente

vicam