MacPPT: Slide Images on Notes Pages Are Not Printed (182221)


The information in this article applies to:

  • Microsoft PowerPoint 2001 for Macintosh
  • Microsoft PowerPoint 98 Macintosh Edition
This article was previously published under Q182221

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.

CAUSE

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

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:
  1. On the View menu, point to Master, and then click Notes Master.
  2. Click the slide image to select it.
  3. On the Format menu, click Colors and Lines.
  4. 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.
  5. Click OK.
  6. On the View menu, click Notes Page.
  7. On the Format menu, click Notes Layout.
  8. Click to select the Reapply master check box, and then click OK.
  9. Repeat steps 2-8 for each individual Notes page in the presentation.

STATUS

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

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.

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 OFF2001: How to Run Sample Code from Knowledge Base Articles

181058 OFF98: How to Run Sample Code from Knowledge Base Articles

Modification Type:MajorLast Reviewed:6/17/2005
Keywords:kbformat kbprb KB182221
©2004 Microsoft Corporation. All rights reserved.