Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 02-19-2019, 01:19 PM
evrimsendur evrimsendur is offline powerpoint printing Windows 10 powerpoint printing Office 2019
Novice
powerpoint printing
 
Join Date: Feb 2019
Posts: 3
evrimsendur is on a distinguished road
Default powerpoint printing

Hello,

i want to print 200 times of the same powerpoint. but ı need to increase the number ( you can see my example -sub information part) for each printed powerpoint.

for example


ABC0300219001 ( first printed powerpoint)


ABC0300219002 (second printed powerpoint)



Could you help anybody ? thank you so much
Attached Files
File Type: pptx powerpoint.pptx (40.9 KB, 10 views)
Reply With Quote
  #2  
Old 02-19-2019, 04:29 PM
Guessed's Avatar
Guessed Guessed is offline powerpoint printing Windows 10 powerpoint printing 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

You could try a macro like this
Code:
Sub PrintABunch()
  Dim i As Long, aSlide As Slide
  'ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = "aaa"   'ABC0300219001
  sFoot = "ABC0300219"
  For i = 1 To 200
    For Each aSlide In ActivePresentation.Slides
      aSlide.HeadersFooters.Footer.Text = sFoot & Format(i, "000")
    Next aSlide
    ActivePresentation.PrintOut
  Next i
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #3  
Old 02-20-2019, 12:47 AM
evrimsendur evrimsendur is offline powerpoint printing Windows 10 powerpoint printing Office 2019
Novice
powerpoint printing
 
Join Date: Feb 2019
Posts: 3
evrimsendur is on a distinguished road
Default

thank you so much. can ı have one more question? ı need to print powerpoint slayt both of sides of paper. but when ı try to print both of sides with this macro. powerpoint is printed just one side. how can ı print both of sides my powerpoint with this macro code.

thank you so much
Reply With Quote
  #4  
Old 02-20-2019, 05:02 AM
Guessed's Avatar
Guessed Guessed is offline powerpoint printing Windows 10 powerpoint printing 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

Have you configured the printer driver to be double-sided by default? I can't see a method in the VBA to control this although I didn't have an exhaustive look.
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #5  
Old 06-26-2019, 07:36 AM
evrimsendur evrimsendur is offline powerpoint printing Windows 10 powerpoint printing Office 2019
Novice
powerpoint printing
 
Join Date: Feb 2019
Posts: 3
evrimsendur is on a distinguished road
Default

Hello guessed,

ı need your help again. I try to use this macro for my word document. bu it doesnt work. How can ı use for word?

thank you very much
Reply With Quote
  #6  
Old 06-26-2019, 04:11 PM
Guessed's Avatar
Guessed Guessed is offline powerpoint printing Windows 10 powerpoint printing 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

For Word, I would put a linked content control into the footers and then the code could simply change that document property before each print. Put in a linked CC by going Insert > Quick Parts > Document Property > Subject (for example)

Code:
Sub PrintABunch_Word()
  Dim i As Long, sFoot as string
  sFoot = "ABC0300219"
  For i = 1 To 200
    ActiveDocument.BuiltInDocumentProperty("Subject") = sFoot & Format(i, "000")
    ActiveDocument.PrintOut
  Next i
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
VB Printing command in PowerPoint blake20 PowerPoint 2 07-28-2015 04:22 AM
Powerpoint 2011 printing problems jerryny PowerPoint 0 03-31-2015 09:17 PM
Printing hi res images from powerpoint to pdf output? miriamallen PowerPoint 0 02-29-2012 09:54 AM
Powerpoint printing issues DWeuve PowerPoint 0 10-04-2011 08:14 AM
Powerpoint printing issue eidius PowerPoint 1 01-13-2011 07:38 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:51 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