Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 09-17-2020, 04:40 PM
ajgarrison ajgarrison is offline how to print multiple copies of a section page Windows 10 how to print multiple copies of a section page Office 2013
Novice
how to print multiple copies of a section page
 
Join Date: Sep 2020
Posts: 14
ajgarrison is on a distinguished road
Default how to print multiple copies of a section page


Is there a way through VBA to print multiple copies of a section page?
Reply With Quote
  #2  
Old 09-17-2020, 09:45 PM
Guessed's Avatar
Guessed Guessed is offline how to print multiple copies of a section page Windows 10 how to print multiple copies of a section page Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

Yes, record a macro of printing it and have a look at the code the macro recorder produces.
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #3  
Old 09-18-2020, 08:44 AM
ajgarrison ajgarrison is offline how to print multiple copies of a section page Windows 10 how to print multiple copies of a section page Office 2013
Novice
how to print multiple copies of a section page
 
Join Date: Sep 2020
Posts: 14
ajgarrison is on a distinguished road
Default

Wrd.ActiveDocument.Sections(19).Range.Select
Wrd.ActiveDocument.PrintOut Range:=wdPrintSelection

The above works to print the section needed. However, the header and footer do not print. Any help on how to select the section including the header and footer?
Reply With Quote
  #4  
Old 09-18-2020, 03:59 PM
Guessed's Avatar
Guessed Guessed is offline how to print multiple copies of a section page Windows 10 how to print multiple copies of a section page Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

Is there a reason you didn't try what I suggested?
Code:
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
    wdPrintDocumentWithMarkup, Copies:=10, Pages:="s19", PageType:= _
    wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
    PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
    PrintZoomPaperHeight:=0
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #5  
Old 09-23-2020, 12:44 PM
ajgarrison ajgarrison is offline how to print multiple copies of a section page Windows 10 how to print multiple copies of a section page Office 2013
Novice
how to print multiple copies of a section page
 
Join Date: Sep 2020
Posts: 14
ajgarrison is on a distinguished road
Default

My apologies. I tried your suggestion and failed. Clearly I made a mistake in my attempt.
I do thank you for your help.
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Create multiple copies of same email in multiple folders gaker10 Outlook 0 10-06-2014 07:44 AM
how to print multiple copies of a section page Unable to print multiple copies zip p pong Word 1 03-16-2014 08:56 PM
how to print multiple copies of a section page Mutliple copies 167 print as one document John-N Mail Merge 5 02-19-2012 07:15 PM
how to print multiple copies of a section page Multiple sequentialy numbered copies of one page Roger1941 Word VBA 1 01-24-2011 03:26 PM
Print copies not resetting? denisep98 Word 0 09-14-2009 08:16 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:34 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft