How to print specific ranges of multiple sheets in one click?

[BELFRED6]

I have a file with many worksheets and I need to print some specific ranges in each of worksheet. Is it possible to set up a macro so all those ranges will be printed out in one click instead of going through all sheets and setting the print area?
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I need to print out:
- Sheet 1: range A1:A25 (one copy)
- Sheet 2: first, range C10:F15 (two copies), then range H5:K10 (one copy). The two ranges should be on separate sheets.
- Sheet 3: range A2:F10 two copies
- Sheet 4: range A1:Z50 one copy. Actually, for that last sheet, the printing range varies every day because the range to be printed is a list of clients having placed an order on that day. So the list is more or less long depending on the day (A1:Z25, or A1:Z18, or A1:Z42, and so on...) A1:Z50 is the LARGEST range possible if ALL clients order on a particular day.

I hope I provide the right information so you can help me on that issue.
Thank you very much for your help.

 

[jbeaucaire]

Try this macro on for size:

Sub PrintJobs()
    Sheets(1).Range("A2:A25").PrintOut Copies:=1
    Sheets(2).Range("C10:F15").PrintOut Copies:=2
    Sheets(2).Range("H5:K10").PrintOut Copies:=1
    Sheets(3).Range("A2:F10").PrintOut Copies:=2
    Sheets(4).Range("A1:Z" & Sheets(4).Range("A" & Rows.Count).End(xlUp).Row).PrintOut Copies:=1
End Sub

 

[BELFRED6]

Thanks a lot! It works exactly as I wanted.