Dear All,

I have designed a report which spans two pages, and I have the vba code below to enable me and other users to print the two pages when the need arises.

I set up a print area for the two pages (combined) as follows: A12:P74 – [see print area in code below]:

Sub Print_Click()
ans = MsgBox("Do you wish to print this report?”, vbYesNoCancel, "Print Report")
    If ans = vbNo Then
        Exit Sub
    ElseIf ans = vbCancel Then  ' Don't Print Report. Go back to Report
        Exit Sub
    ElseIf ans = vbYes Then         ' Print Report

       With Worksheets("Report")
        .PageSetup.PrintArea = "A12:P74"
        .PrintOut
        .PrintPreview
    End With
End If
End If
End Sub
The above code is intended to print both pages 1 and 2 of a report.

However, it is not all the time that a user might want to print all two pages of the report. There may be times when a user might wish to print –

Either (a) Page 1 only which goes from A12:P49

Or (b) Pages 1 and 2 – which is the entire defined print area of A12:P74

If it is possible, please, I would like to incorporate, in the code, a choice to be able to print either only page one or print both pages. I would be glad if the above code could be tweaked to help me to achieve that.

I should be grateful for your kind help with this.

Thanks.

Newqueen