Hi Guys,

The code below is a portion of a macro which you guys help build, well
really you built for me, I did the copy and paste bit. Its purpose is that it
will allways print the sheet called "Opening Cover", and then only following
sheets when the IF statement is True.

Sub PrintButton_Click()

Sheets("opening cover").Select
On Error Resume Next Application.Dialogs(xlDialogPrint).Show
If Err.Number < 0 Then
Err.Clear
Exit Sub
End If
On Error GoTo 0

If Worksheets("Calcs").Range("i1") = True Then
Worksheets("sheet1").PrintOut Copies:=1
End If
If Worksheets("Calcs").Range("f1") = True Then
Worksheets("sheet2").PrintOut Copies:=1
End If
If Worksheets("Calcs").Range("f2") = True Then
Worksheets("sheet3").PrintOut Copies:=1
End If
If Worksheets("Calcs").Range("f2") = True Then
Worksheets("sheet4").PrintOut Copies:=1

Else
Sheets("opening cover").Select
Range("f13").Select

End If
End Sub


This works fine, but the document has risen to 43 worksheets, still this is
not a problem if printing to paper.

We are now trying to move aware from paper copies, so some of the guys who
have been testing this print to MS Office image printer, and some to acrobat,
when this happens each page that is printed, but each worksheet that is True
is saved as a seperate document. (Nightmare, ok in acrobat these can be
merged afterwards but still a pain).

Is it possible to alter the code above, such that when printing the
worksheets that are True, they are all selected in one hit, and then printed?

This way if printed as a file to be saved, it would be only one document,
rather than 43.


Hope that makes sense, I've had a try but lost?
--
This post was created using recycled electrons!