Print Formula

[spilner]

Hi, ive thousand of sheets. How do i print range of sheets. My sheets is named as numbers and the sheets is randomly, not sorted.
How do i print from this sheet example from sheet 80 to sheet 500.
So it will print everything from 80 to sheet 500.
This Mean within 80 to sheet 500 probably have this sheet number 700,800 etc.
Atm i need to select all sheets i want and print it.
Hope someone can help me. Thanks a lot guys.

 

[spilner]

I color my sheets to yellow,red,blue. Can someone help auto print sheets by colour?

 

[spilner]

Anyone willing to help?

 

[FormR]

Something like this maybe:

Sub PrintBasedOnColor()
'Prints the yellow tabs
Dim x As Worksheet
'6=Yellow
'3=Red
'5=Blue
    For Each x In ActiveWorkbook.Sheets
        If x.Tab.ColorIndex = 6 Then x.PrintOut
    Next x
End Sub
 
 
Sub PrintBasedOnName()
'Prints sheets named '10' to '13' inclusive
Dim x As Worksheet
    For Each x In ActiveWorkbook.Sheets
        If IsNumeric(x.Name) Then
            If x.Name >= 10 And x.Name <= 13 Then x.PrintOut
        End If
    Next x
End Sub

 

[Peter_SSs]

How do i print range of sheets. My sheets is named as numbers and the sheets is randomly, not sorted.
How do i print from this sheet example from sheet 80 to sheet 500.
So it will print everything from 80 to sheet 500.
This Mean within 80 to sheet 500 probably have this sheet number 700,800 etc.

See if this is what you mean.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> PrintSheetRange()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    <SPAN style="color:#00007F">Const</SPAN> FirstSh <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "80"<br>    <SPAN style="color:#00007F">Const</SPAN> LastSh <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "500"<br>    <br>    <SPAN style="color:#00007F">For</SPAN> i = Sheets(FirstSh).Index <SPAN style="color:#00007F">To</SPAN> Sheets(LastSh).Index<br>        Sheets(i).PrintOut<br>    <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br></FONT>

 

[spilner]

Ill let u know when i try this at work tomorrow. Ive 2 printers and want to print different color at different printers. Will the code let me choose the printers?
My boss just mad at me when i miss print some of documents
Hope this code work perfect and print all without miss any.
Thanks a lot formR. If anyone got any good vba, feel free to post it here. Thank u so much.

 

[spilner]

Thanks peter, ill try it tomorrow.

 

[spilner]

both formula works perfect.thanks a lot peter & formr.
1 more help i need if u guys can help me.
the page is in here.
http://www.mrexcel.com/forum/showthread.php?t=574825

Thanks once again

 

[Peter_SSs]

both formula works perfect.thanks a lot peter & formr.

Glad it worked for you. Note that what was suggested was not a "formula" but a "macro" or "vba code". If you use the correct terminology, you will get better responses.

 

[spilner]

for the print code.can u make the code print it without it go to each sheet and print it?
i want it done fast cause ive other range to print.can u fix it?