View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
KateB[_2_] KateB[_2_] is offline
external usenet poster
 
Posts: 15
Default ActiveWindow.SelectedSheets.PrintOut - Print to single workboo

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


On Dec 11, 9:00*am, Brotha Lee
wrote:
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" wrote:
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


On Dec 11, 8:11 am, Brotha Lee
wrote:
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" wrote:
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- Hide quoted text -


- Show quoted text -- Hide quoted text -


- Show quoted text -