Microsoft Excel - invoice print header original dulpicate ...

Asked By narendra patel on 09-Dec-12 07:38 AM


Hallo everybudy

I have a excel sheet (invoice copy) which i want to print 3 copies by VBA
I have a problem with the header that i want to print. The header is
different for all the 3 pages while all the other content remains the
same.

the header of the invoice in the first page to be printed should be "
original for the buyer"
the header of the invoice in the second page to be printed should be
"Duplicate for the seller"
the header in the third page should be " Transporter's Copy"

my code:

.......
........
Worksheets("sheet6").PageSetup.PrintArea = "$A$1:$k$152"
Worksheets("sheet6").PrintOut Copies:=3, Collate:=True

???????????

Harry Boughen replied to narendra patel on 09-Dec-12 02:06 PM
Hello Narenda,

I haven't tried this but could you put the printout statement inside a for next loop with code to step through a list of your separate headings to place them in the relevant cells of your printarea.

Just a thought and if I get a chance later I will try something for you and let you know.

Harry
Harry Boughen replied to narendra patel on 09-Dec-12 10:00 PM
Hello Narenda,

The attached file gives an idea of what I had in mind.

headers.zip

Harry