powerpoint printing

evrimsendur · #1 02-19-2019, 01:19 PM

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

Guessed · #2 02-19-2019, 04:29 PM

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

evrimsendur · #3 02-20-2019, 12:47 AM

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

Guessed · #4 02-20-2019, 05:02 AM

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.

evrimsendur · #5 06-26-2019, 07:36 AM

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

Guessed · #6 06-26-2019, 04:11 PM

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

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