Automatically printing file name, date and time of printing

[Erika]

How can I get PPT to print out the file name, date/time of printing as a
footer whenver I print? I am making many drafts and it would help if I could
see the fiel name and date/time I printed in order to keep track of the
latest file.

 

[Abhishek Bagga]

You can add this macro to your presentation and execute it before printing
and it wil give you the desired result

You can customise the display according to your own needs

Sub PrintNamenDate()
Dim i As Long
Dim shp As Shape
Dim hasname As Boolean
Dim newNameBox As Shape

For i = 1 To ActivePresentation.Slides.Count
hasname = False
For Each shp In ActivePresentation.Slides(i).Shapes
If shp.Name = "MyVeryOwnFooter" Then
hasname = True
End If
Next
If hasname = True Then
ActivePresentation.Slides(i).Shapes("MyVeryOwnFooter") _
.TextFrame.TextRange.Text = Presentations(1).Name & " " &
Now ' or Presentations(1).FullName
Else
Set newNameBox = _
ActivePresentation.Slides(i).Shapes.AddShape _
(msoTextOrientationHorizontal, 0#, 504#, 720#, 28)
newNameBox.Name = "MyVeryOwnFooter"
newNameBox.TextFrame.TextRange.Text = Presentations(1).Name & "
" & Now ' or Presentations(1).FullName
newNameBox.TextFrame.TextRange.Font.Size = 12
newNameBox.TextFrame.TextRange.ParagraphFormat.Alignment =
ppAlignCenter
End If
Next i
End Sub