ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   print button macro & specific tabs to print (https://www.excelbanter.com/excel-worksheet-functions/167013-print-button-macro-specific-tabs-print.html)

Chuck[_3_]

print button macro & specific tabs to print
 
hi guys,

first, sorry for the multiple posts (but thought this group would be
more relevant for my needs)

query:

is there a way i can put a button within the first sheet of my
workbook that says.. print workbook

when doing so, it will print the following tabs (as i have more then
the specific tabs mentioned below)

notes
actual
spend calendar
purchase record

and within this function, look at tabs 001-013 and identify if there
is any value in $J$38 0 in each tab, if so, print the tabs that have
a value 0

cheers
chuck

Chuck[_3_]

print button macro & specific tabs to print
 
hi guys,

i figured it out

Sub PrintWorkbook()

Sheets("Notes").PrintOut
Sheets("Actual").PrintOut
Sheets("Spend Calendar").PrintOut
Sheets("Purchase Record").PrintOut

If Sheets("001").Range("J38") 0 Then
Sheets("001").Range("a1:K56").PrintOut
If Sheets("002").Range("J38") 0 Then
Sheets("002").Range("a1:K56").PrintOut
If Sheets("003").Range("J38") 0 Then
Sheets("003").Range("a1:K56").PrintOut
If Sheets("004").Range("J38") 0 Then
Sheets("004").Range("a1:K56").PrintOut
If Sheets("005").Range("J38") 0 Then
Sheets("005").Range("a1:K56").PrintOut
If Sheets("006").Range("J38") 0 Then
Sheets("006").Range("a1:K56").PrintOut
If Sheets("007").Range("J38") 0 Then
Sheets("007").Range("a1:K56").PrintOut
If Sheets("008").Range("J38") 0 Then
Sheets("008").Range("a1:K56").PrintOut
If Sheets("009").Range("J38") 0 Then
Sheets("009").Range("a1:K56").PrintOut
If Sheets("010").Range("J38") 0 Then
Sheets("010").Range("a1:K56").PrintOut
If Sheets("011").Range("J38") 0 Then
Sheets("011").Range("a1:K56").PrintOut
If Sheets("012").Range("J38") 0 Then
Sheets("012").Range("a1:K56").PrintOut
If Sheets("013").Range("J38") 0 Then
Sheets("013").Range("a1:K56").PrintOut

End Sub

cheers
chuck

Dave Peterson

print button macro & specific tabs to print
 
Check your other thread.

Chuck wrote:

hi guys,

first, sorry for the multiple posts (but thought this group would be
more relevant for my needs)

query:

is there a way i can put a button within the first sheet of my
workbook that says.. print workbook

when doing so, it will print the following tabs (as i have more then
the specific tabs mentioned below)

notes
actual
spend calendar
purchase record

and within this function, look at tabs 001-013 and identify if there
is any value in $J$38 0 in each tab, if so, print the tabs that have
a value 0

cheers
chuck


--

Dave Peterson


All times are GMT +1. The time now is 10:03 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com