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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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