jarvo,
For each button, set the required sheet numbers, e.g:

Sub Button2_Click()
Dim PagesToPrint As Variant
PagesToPrint = Array(13,14,15,16,17,18,6,7,8,19,20,21,22,23,24,25 ,26)
Call ArrayPrint(PagesToPrint)
End Sub

Private Function ArrayPrint(argPages As Variant) As Boolean
ThisWorkbook.Sheets(argPages).PrintOut ActivePrinter:="Adobe PDF on Ne02:"
End Function

Not sure what the "*"'s are supposed to mean, but..

NickHK

"jarvo" wrote in
message ...

Please could someone help me with this issue?

I have a workbook with 80 worksheets, I would like to print these
worksheets in various different combinations to a single PDF. (I have
Adobe Acrobat 7.0 installed.)
I would like to have 7 buttons that when pressed will print the
specific combination of worksheets in a specified order.

(Button 1) Print Worksheets: 1,2,3,4,5,6,7,8,9,10,11,12
(Button 2) Print Worksheets:
13,14,15,16,17,18,*6,7,8*,19,20,21,22,23,24,25,26
(Button 3) Print Worksheets: 27,28,29,30,31,32,,*6,7,8*,33,34,35,36,37
(Button 4) Print Worksheets:
38,39,40,41,42,43,*6,7,8*,44,45,46,47,48,49,50,51, 52,53,54
(Button 5) Print Worksheets: 55,56,57,58,59,60,6,7,8,61,62,63,64,65
(Button 6) Print Worksheets:
66,67,68,69,70,71,6,7,8,72,73,74,75,76,77,78,79,80
(Button 7) Prints all worksheets.

So when each button is pressed it will create a single pdf combining
the specific worksheets in the correct order.


--
jarvo
------------------------------------------------------------------------
jarvo's Profile:
http://www.excelforum.com/member.php...o&userid=18983
View this thread: http://www.excelforum.com/showthread...hreadid=530521