This post has been de-listed (Author was flagged for spam)
It is no longer included in search results and normal feeds (front page, hot posts, subreddit posts, etc). It remains visible only via the author's post history.
Hi everyone!
This question has been asked a billion times, but I'm just confirming that there's no fix for my specific problem. I have a VBA that prints each sheet in a workbook ten times uncollated in portrait orientation, which is below. I actually got this from this Reddit thread a while ago, so all credit to that.
I would really like pages to be printed double sided though (each sheet extends off the page), but it really does seem to be the case that the ONLY way to make sure this happens is to go into each sheets individual print settings and make sure it is set as double sided. I receive a new workbook to print each week, so this ends up taking a lot of time. Is there really no way for me to force double sided printing in my VBA? At this point I would even take an easy way to switch all sheets in the workbook between double and single sided -- for what it's worth it seems that changing my printer settings in the control panel does nothing.
Thank you all!
VBA:
Sub PrintSheets()
Dim ws As Worksheet, cs As Worksheet
Set cs = ActiveSheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ws.PrintOut Copies:=10, Collate:=False, _
IgnorePrintAreas:=False
Next ws
cs.Activate
Application.ScreenUpdating = True
End Sub
Post Details
- Posted
- 5 years ago
- Reddit URL
- View post on reddit.com
- External URL
- reddit.com/r/excel/comme...