Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Vba code to print all sheets
I'm trying to use this code to intercept when the user makes a print from
one of the worksheets. My objective is to print all sheets without the user needing to select all. This code does that - and then prints the activesheet once more - since a normal print is performed after the code has been executed: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wk As Worksheet For Each wk In Worksheets wk.PrintOut Next End Sub So I would be very happy if someone could point me in the right direction ! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Vba code to print all sheets
"Arild" schreef in bericht ...
I'm trying to use this code to intercept when the user makes a print from one of the worksheets. My objective is to print all sheets without the user needing to select all. This code does that - and then prints the activesheet once more - since a normal print is performed after the code has been executed: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wk As Worksheet For Each wk In Worksheets If wk.Name<ActiveSheet.Name then wk.PrintOut Next End Sub -- PeterS --- Peter's outgoing mail is certified 100% Virus Free. (AVG) Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.521 / Virus Database: 319 - Release Date: 23-9-2003 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
A macro code to print multiple sheets in different w.books | Excel Discussion (Misc queries) | |||
print all sheets in one print job so I can staple them | Excel Discussion (Misc queries) | |||
How do I print sheets in Excel without blank sheets after page | New Users to Excel | |||
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Worksheet Functions | |||
i made one spreadsheet but when i try to print two sheets print, | Excel Discussion (Misc queries) |