Printing multiple selections

Hi,

I would like to print several selections on a worksheets, and also some other selections on another worksheet.
Here is the code I'm using:

Range("A1:D4").Select
Selection.PrintOut Copies:=1, Collate:=True

This works, when there is only one selection (print area). However I get printing errors (Could not print !filename!.xlsm) if I try to add further selections.
I have tried to add a delay between printing selections and also DoEvents. The delay does help slightly, but I always end up getting an error before the printing is complete.

Is there a better approach to printing several different selections in a workbook?

Any help would be much appreciated.

Printing always applies to continuous ranges.
If you want to print non-continuous ranges on a single page, then you must collect (copy) them into a temporary sheet and print that sheet.

Artik

Thank you Artik, I wasn't aware of that.
Although I should note, I am trying to print several areas of several worksheets, with each selection printing to a new sheet. Not print several sections as a single sheet.

Then repeatedly define the range to print and print each range separately.

Artik

This is what I am doing, with no success.
I understood your first reply to mean printing multiple ranges as one whole range, hence the collection of data into a new sheet. Does that still apply even though each range is to be printed as new sheets?

The following doesn't work:

Range("A1:D4").Select
Selection.PrintOut Copies:=1, Collate:=True

Range("E1:H4").Select
Selection.PrintOut Copies:=1, Collate:=True

Range("I1:L4").Select
Selection.PrintOut Copies:=1, Collate:=True

Please Login or Register  to view this content.

The first 3 lines of code will print the three ranges of the active sheet on separate sheets. The fourth line will print a range from the inactive sheet named "Sheet25".

Artik

Excellent! Very much appreciated!

Unfortunately this doesn't help me. This is pretty much what I am currently doing.

The first range prints fine. If I place each selection in a new sub, and run each in succession, they all print fine.
I can even set the printer as a PDF output and it works as expected.

But, all in one sub... multiple ranges, it doesn't work. Like I said, the first prints fine, but then I am presented with a printing error.

Ah...
Range("A1:D4, E1:H4, I1:L4").PrintOut copies:=1, collate:=True

This works