MacPPT: Slide Images on Notes Pages Are Not Printed

Retired KB Content Disclaimer

View products that this article applies to.

This article was previously published under Q182221

Expand all | Collapse all

SYMPTOMS

If you open a Microsoft PowerPoint version 4.0 presentation in Microsoft PowerPoint 98 Macintosh Edition or Microsoft PowerPoint 2001 for Mac, and then attempt to print the Notes pages, the slide images on the Notes pages may not be printed.

In addition, if you click Black And White on the View menu, the slide images may disappear from the Slide Miniature window.

Back to the top

CAUSE

The slide images on the Notes pages do not contain border formatting.

Back to the top

WORKAROUND

To work around this behavior, open the presentation in PowerPoint 98 or PowerPoint 2001, and add a border to the slide images on the Notes pages. To do this, follow these steps:

On the View menu, point to Master, and then click Notes Master.
Click the slide image to select it.
On the Format menu, click Colors and Lines.
In the Color list, select any color sample other than No Line or White.

NOTE: If you select White as the color sample, you will not achieve the result that you want.
Click OK.
On the View menu, click Notes Page.
On the Format menu, click Notes Layout.
Click to select the Reapply master check box, and then click OK.
Repeat steps 2-8 for each individual Notes page in the presentation.

Back to the top

STATUS

Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.

Back to the top

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following Microsoft Visual Basic for Applications (VBA) macro is included in the file download from the Microsoft Support Web site.

''''''''''''''''''''''''''''''''''''''''''''''''
   '
   ' If you imported a presentation from PowerPoint 4.0
   ' that contains Notes pages with images, they may not
   ' print. However, you can use the following macro to
   ' work around this problem and print the Notes pages.
   '
   ' For additional information, please see the following
   ' article in the Microsoft Knowledge Base:
   '
   ' ARTICLE-ID: Q182221
   ' TITLE     : PPT98: Slide Images on Notes Pages Are Not Printed
   '
   ''''''''''''''''''''''''''''''''''''''''''''''''
   Sub CorrectNotesPages()
   '
   ' Macro recorded 2/27/98 by David Craig
   '
       Dim shpShape As Shape
       Dim lSlideCount As Long
       
       ' Change the view to Notes Page view.
       ActiveWindow.ViewType = ppViewNotesPage
       
       ' Loop though each slide in the presentation.
       For lSlideCount = 1 To ActiveWindow.Presentation.Slides.Count
           ' Select the slide.
           ActiveWindow.View.GotoSlide Index:=lSlideCount
           
           ' Select all shapes on the slide.
           ActiveWindow.Selection.SlideRange.Shapes.SelectAll
           
           ' Loop though all selected shapes.
           For Each shpShape In ActiveWindow.Selection.ShapeRange
               With shpShape
                   ' If the shape is a place holder...
                   If .Type = msoPlaceholder Then
                       ' and it is a title placeholder...
                       If .PlaceholderFormat.Type = ppPlaceholderTitle Then
                           ' then apply line formatting to it.
                           .Line.Visible = msoTrue
                           .Line.ForeColor.SchemeColor = ppForeground
                           .Line.BackColor.RGB = RGB(255, 255, 255)
                           .Line.Style = msoLineSingle
                           .Line.DashStyle = msoLineSolid
                           .Line.Weight = 1#
                       End If
                   End If
               End With
           Next shpShape
       Next lSlideCount
   End Sub

Please note that this macro is presentation-specific; you need to insert it into every presentation that exhibits the behavior described in this article.

Back to the top

REFERENCES

For additional information about how to create a macro in an Office article, click the article numbers below to view the articles in the Microsoft Knowledge Base:

274703 (http://support.microsoft.com/kb/274703/EN-US/ ) OFF2001: How to Run Sample Code from Knowledge Base Articles

181058 (http://support.microsoft.com/kb/181058/EN-US/ ) OFF98: How to Run Sample Code from Knowledge Base Articles

Back to the top

APPLIES TO

Microsoft PowerPoint 2001 for Mac
Microsoft PowerPoint 98 for Macintosh

Back to the top

kbformat kbprb KB182221

Back to the top

Retired KB Content Disclaimer

This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Back to the top