imprimir cambia numeracion

Tengo el siguiente codigo el cual me imprime dos copias con un solo click en el icono de imprimir y el folio solo cambia una vez: Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name <> "Solicitud" Then Exit Sub ...

En el encabezado de mi documento tengo puesto el número de páginas del tipo 1 de 3, 2 de 3 , etc, en el ordenador sale bien, pero cuando le doy a imprimir se cambia y aparece 1 de 1, 2 de 2, etc. ¿Cómo se puede evitar ...