Ναι σωστά το βλέπεις...
Αυτό που ανέβασα, είναι
τμήμα από ολόκληρο πρόγραμμα εκτυπώσεων
στο οποίο, «στέλνει» ο κύριος κώδικας κάποιες εντολές (if) στις παραμέτρους...
Για ευνόητους λόγους, δεν ανεβάζω το πλήρες πρόγραμμα, αλλά τμήματα
τα οποία μπορεί να λειτουργήσουν στο ζητούμενο...
και γι' αυτό υπάρχουν ατέλειες...
Για να λύσεις και αυτό το θέμα, (χωρίς να ανεβάσω κάτι άλλο)
βάλε μέσα στο With Sh1.HPageBreaks:
Μετά το pb = .Item(1)....
Κώδικας:
Sh1.PageSetup.RightFooter = "Σελίδα: 1 Από 2"
και Μετά το Sh1.Rows("$8:$9").Hidden...
Κώδικας:
Sh1.PageSetup.RightFooter = "Σελίδα: 2 Από 2"
αυτά αρκούν για να «μπαλώσουν» το...σφάλμα!