Help about printing

[sipcine]

I have mani pages on one sheet. Since i dont print them all daoily i would like to quickly select what pages will be printed.
I would like to do that with check boxes and button for printing.
I allready named ranges for every page separatly.
My question. How can i make checkbox to include or exclude some page in print. and print will be done with diferent button.
Thanks for help

[Logit]

http://stackoverflow.com/questions/3...specific-pages

[sipcine]

Here is what i have so far but i have error.
I am very new with VBA so sorry and please help.

Public Sub CheckAllCheckBoxes()
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range
Dim rng5 As Range
Dim RngToPrint As Range
Dim i As Integer

Set rng1 = Range("a1:e47")
Set rng2 = Range("a48:e94")
Set rng3 = Range("a95:e139")
Set rng4 = Range("a140:e185")
Set rng5 = Range("a186:e232")



i = 1
Dim ChkBx As OLEObject
For Each ChkBx In ActiveSheet.OLEObjects

If TypeName(ChkBx.Object) = "CheckBox&i" Then
ElseIf ChkBx.Object.Value = True Then
RngToPrint = Range("rng&i")

RngToPrint.PrintOut


Else
End If


i = i + 1

Next ChkBx


End Sub

[protonLeah]

(How to) Upload a Workbook directly to the Forum
(please do not post pictures or links to worksheets)

• Click Advanced next to Quick Post button at the bottom right of the editor box.
• Scroll down until you see "Manage Attachments",
• Click the "Choose" button at the upper left (upload from your computer).
• Select your file, click "open", click "upload"
• Once the upload is completed the file name will appear below the input boxes in this window.
• Close the Attachment Manager window.
• Click "Submit Reply"

Note: Please do not attach password protected workbooks/worksheets
Ensure to disable any Workbook Open/Autorun macros before attaching!

[protonLeah]

Please Login or Register  to view this content.

[sipcine]

Thanks man.
I am very thankfull you helped me.
Solved.