absolutely stunning, thanks for all the help honestly but i have one more
question
i have 5 different sheets in a workbook and they have different amount of
pages eg, report sheet 3 pages, accounts sheet 2 pages and counting sheet 8
pages
can i do it like select report option 1 and then print 1-3 (which takes you
to report sheet) or counting option 2 and then print all pages (which takes
you to counting sheet)
when you get a chance please reply
you are the hero so far
jez

"Sheeloo" wrote:

On the Control toolbar
Click on Command Button
Then draw one where you want
Right-Click and paste the code in the View Code window
In properties (Categorized view) click on ... next to picture and choose the
image you want
Click on Design button on the Control toolbar to exit design mode

"jez" wrote:

or can i have a button on the sheet with print icon?

"Sheeloo" wrote:

Try this macro
Sub printPages()
Dim response As Integer
Dim msg As String
msg = msg & "Please select an option: " & vbCrLf
msg = msg & " 1. for 1st page: " & vbCrLf
msg = msg & " 2. 2nd page: " & vbCrLf
msg = msg & " 3. 3rd page: " & vbCrLf
msg = msg & " 4. all the pages: " & vbCrLf

response = Application.InputBox(msg)
If (response < 1 And response < 2 And response < 3 _
And response < 4) Then
MsgBox "Wrong Choice!" & vbCrLf & "Try again."
Exit Sub
End If
If response = 4 Then
ActiveSheet.PrintOut 1, 3
Else
ActiveSheet.PrintOut response, response
End If
End Sub

"jaz" wrote:

sheeloo
i have people that dont know how to do that therefore i want it something
else more flashy a pop up basically, that makes it easier for them once they
click print object then they select 1,2,3, etc

"Sheeloo" wrote:

This option is already there in the Print option provided by Excel.

See the 'Print Range' block...

"jaz" wrote:

i have a report sheet which includes 3 pages but not everybody needs 3 pages
to print
is there a code that once i click print then it would give me an option eg:

please select an option
1. for 1st page
2. 2nd page
3. 3rd page
4. all the pages

many thanks
jez