ActiveWindow.SelectedSheets.PrintOut - Print to single workbook

[KateB]

Can anyone give me a hand, I'm trying to print the last two pages of a
workbook to a single pdf (i.e. not one pdf per worksheet).

I've had a good dig around the forum & found this code.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Strangely it worked on my "test" book (which just had a bit of text on
two sheets), but when I use it on my actual book, it gives me
individual pdfs. Does anyone know what trips this up? I tried
deleting out the non-printing sheets (not really a solution, but to
see if the problem came from too many sheets) & that didn't work.

We have to loop this code over ~180 workbooks, so not doing it
manually would be a bonus

Cheers,
Kate

 

[Brotha Lee]

Hi KateB,

I think the solution will not be in VBA but in your printer settings. Most
of the PDF printers have options there how to print out document (merge of a
separate sheets). I think a good dig around in your printer settings will
solve the issue.

Regards,

Brotha lee

 

[KateB]

I just had a dig around, but no joy. Using Acrobat Distiller.
Strangely, when I select the group & print preview, all pages show,
but they seem to be spooled separately.

I meant to mention before that I've also tried loading the sheets into
an array & that didn't help either.

Any other ideas?

Kate

 

[Brotha Lee]

Hi KateB,

Sorry I do not have any experience with Adobe Distiller. Only way I can
figure of there is a special user interface (not via printer settings) for
the Adobe Distiller printer. Maybe a help forum of Adobe Distiller can give
you a solution?

 

[KateB]

Further net searching turned up that if you change the print
resolution Print Setup > Print Quality to 600 dpi (even if it already
says this) for the pages you want to print, then you can print to the
same pdf. I suspect you could set the resolution to anything & as
long as it matched, it would be OK.

One of those quirks, I suppose....

K