Imprimir hoja con macros respetando encabezado

Tengo este código: el cual me imprime perfectamente mi hoja deseada...

Sub PAN_PEDIR()
Application.ScreenUpdating = False

If Range("E1") > 0 Then

MsgBox "NO PODEMOS REALIZAR SU PEDIDO, PORFAVOR: VERIFIQUE SU PEDIDO", vbExclamation, "LO SENTIMOS"
Exit Sub
End If
Dim s As Long
s = Application.WorksheetFunction.Sum(Range("G6:T300"))

If s = Empty Then
MsgBox "NO HAY CANTIDADES PARA PEDIR", vbCritical, "ERROR"

Else

Dim PEDIDO As Variant
' Application.Speech.Speak "¿EL CLIENTE SOLICITARÁ FACTURA?"
PEDIDO = MsgBox("¿HACER PEDIDO?", vbYesNo + vbQuestion, "AVISO")
If PEDIDO = vbYes Then

'FILTRA LOS PRODUCTOS CON MAYOR A CERO
ActiveSheet.Unprotect
ActiveSheet.Range("$F$5:$F$300").AutoFilter Field:=1, Criteria1:=">0", _
Operator:=xlAnd
'IMPRIMIMOS REPORTE APTS
Range("B2:P301").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$T$301"
'QUITAMOS RELLENO VERDE
ActiveSheet.Unprotect
Cells.Select
Range("B1").Activate
With Selection.Interior
ActiveSheet.Unprotect
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'IMPRIMIMOS
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("PANADERIA").Select
Application.ScreenUpdating = False
Call guardaCopiaPANADERIA
'AQUÍ FILTRA MAYOR QUE CERO EN LA HOJA DE IMPRESIÓN
Sheets("IMPRIME PAN").Activate
ActiveSheet.Unprotect
ActiveSheet.Range("$C$5:$C$300").AutoFilter Field:=1, Criteria1:=">0", _
Operator:=xlAnd
'QUITAMOS RELLENO VERDE
ActiveSheet.Unprotect
Cells.Select
Range("B1").Activate
With Selection.Interior
ActiveSheet.Unprotect
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'IMPRIMIMOS POR SEGUNDA VEZ
Range("B2:F308").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$E$308"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
'REGRESAMOS AL AREA CORRESPONDIENTE
Sheets("PANADERIA").Select
'QUITAMOS FILTRO DEL AREA Y BORRAMOS CONTENIDO
Application.ScreenUpdating = False
ActiveSheet.Unprotect
ActiveSheet.Range("$F$5:$F$300").AutoFilter Field:=1
Range("G6:T300").Select
ActiveSheet. Unprotect
Selection.ClearContents
Range("G6").Select
'QUITAMOS FILTRO DE IMPRESIÓN
Sheets("IMPRIME PAN").Activate
ActiveSheet.Range("$C$5:$C$300").AutoFilter Field:=1
'REGRESAMOS DE NUEVO AL AREA
Sheets("PANADERIA").Select
ActiveSheet.Unprotect
[E2] = "PN" & Format(Val(Right([E2], 3)) + 1, "00000")
MsgBox "PEDIDO REALIZADO", vbOKOnly, "EN HORA BUENA"
If PEDIDO = vbNo Then
MsgBox "PEDIDO CANCELADO", vbInformation, "PANADERIA"
End If
End If
End If
End Sub

El problema es que si solo imprime una hoja (osea si solo esta ocupando una macro)

este me sale de esta forma

que salega PANADERIA, LOS TITULOS Y MI FOLIO

entonces si es mas de una hoja me sale de esta forma AQUI NO ME SALE

Yo quisiera que me respete mi encabezado osea en la primera hoja se aprecia el nombre:

Panadería, los títulos y mi folio

Osea las hojas que imprima siempre me salga los encabezados y si es posible que salga cuantas páginas son en caso de ser más que 1

Se los agradecería..

Mucho!

Saluddos!