Macro to print excel sheets base on check list

[FaizanRoshan88]

Hi,
I have excel dashboard that i used to modify different wb. i have another customer invoices wb with lot of sheets. i try to create user form to print sheets with Option of Select file, Check-Box lists of all Sheets form Source file,Multiple Copies of each page, Preview, Select/UnSelect all sheet ,Editable page & Add Printer. Most Important i like to print pause for 20 second after print 10 pages. I have not too good in vba to done it myself.
If any one know how to done this, Please Help Me.

Thank You!

 

[PCosta87]

Hi,

Take a look at the following:
http://forum.chandoo.org/threads/vba-code-for-printout-using-check-box.31968/#post-189951

Also, refer to the attached sample file.
It seems like a similar request.

Hope this helps.

 

[Derek McGill]

As a little tweek how can you change "Copies:=1" to a value other than 1 ?

 

[PCosta87]

As a little tweek how can you change "Copies:=1" to a value other than 1 ?

Hi,

You can either change it in VBA by simply replacing 1 with the number of copies you want:

Sub Printselected()

    On Error Resume Next

    Dim i As Integer

    For i = 2 To Sheets.Count
        If Sheets(1).Shapes("Check Box " & i).ControlFormat.Value = 1 Then
            Sheets(i).PrintOut Copies:=3
        End If
    Next i

    Sheets(1).Activate

End Sub

or have it look the number of copies in a cell like "B1":

Copies:=Range("B1").Value

 

[Derek McGill]

Copies:=Range("B1").Value is the way to go, Thanks.

 

[PCosta87]

Copies:=Range("B1").Value is the way to go, Thanks.

Don't mention it