Printing questions (partII)

[test]

I have this spreadsheet with a calendar for a whole year.
Each month is on a separate tab and covers a whole page when printed.

I would like these features if they are possible.

1- have a button on each page that prints the actual month (page that
is been looked at), and the following month.
So if somebody is looking at the month of May, and clicks the button,
automatically the June, July, August, Sep... and so on must be
printed.
This means that the button has to be changed for every month, but
that's no problem. I need a macro that prints more than one sheet.

2- this one is tricky: if it is possible the prints should be with
multiple months on every printed page.
To save our trees, it would be fine that when somebody wants to print
all months starting from may, on every printed page two or more months
are printed.
This means that excel should reduce the size of the prints so more
than one tab fits on one page.
This also means that if two pages are printed, the print setup should
change the print direction from landscape to portrait..

I know, this is much, but maybe there is an solution...

 

[Chip Pearson]

The following code will print the ActiveSheet (that which is visible in the
main Excel window) and the sheet following the ActiveSheet, if one exists.
This assumes that the month sheets are the last sheets in the workbook (e.g,
no "summary" sheets at the end of the workbook).

Sub PrintActiveAndNext()
With ActiveSheet
.PrintOut ' Preview:=True
If Not .Next Is Nothing Then
.Next.PrintOut ' Preview:=True
End If
End With
End Sub

I don't think there is any easy way to combine multiple sheets into a single
sheet for printing or to print out multiple sheets as single print job. That
is not to say that it can't be done, but the effort to write reliable and
flexible code is likely not worth the effort.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[test]

The following code will print the ActiveSheet (that which is visible in the

main Excel window) and the sheet following the ActiveSheet, if one exists.
This assumes that the month sheets are the last sheets in the workbook (e.g,
no "summary" sheets at the end of the workbook).

Sub PrintActiveAndNext()
With ActiveSheet
.PrintOut ' Preview:=True
If Not .Next Is Nothing Then
.Next.PrintOut ' Preview:=True
End If
End With
End Sub

I don't think there is any easy way to combine multiple sheets into a single
sheet for printing or to print out multiple sheets as single print job. That
is not to say that it can't be done, but the effort to write reliable and
flexible code is likely not worth the effort.

Thanks a lot chip!
Sadly enough there is a summary page at the end of the sheet!
Thanks anyway!