Try it like this

The space is importent after the 4 (bug)

Sub test()
With ActiveSheet.PageSetup
Range("a1:G204").PrintPreview
.LeftHeader = "&P+4 "
Range("a400:G500").PrintPreview
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


wrote in message oups.com...
If I develop three blocks of print programming in VBA whe

1st Block Prints 4 pages
2nd Block Prints 3 more pages
3rd Block Prints 7 more pages

then, is it possible for the page numbers for the three different sets
of print commands to be sequential (1 thru 14)?

Currently, my first print block produces four pages,numbered 1 thru 4.
My second print block produces three pages, numbered 1 thru 3. And my
third print block produces seven pages, numbered 1 thru 7.

Ideally, I'd like the first print block to produce four pages numbered
1 thru 4, the second print block to produce three pages numbered 5 thru
7, and the third print block to produce seven pages numbered 8 thru 14.


Might anyone have any ideas? Thanks.

Michael