KB171328 - PPT97: Slide Images on Notes Pages Don't Print

Article ID: 171328

Article Last Modified on 6/17/2005

Microsoft PowerPoint 97 Standard Edition

This article was previously published under Q171328

SYMPTOMS

If you open a Microsoft PowerPoint version 4.0 presentation in Microsoft PowerPoint 97 for Windows and then attempt to print the Notes pages, the slide images on the Notes pages may not print. 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, use one of the following methods:

Method 1: Download and Run a Macro to Print the Images on Notes Pages

Microsoft has released a macro that will allow you to print the images on Notes pages in PowerPoint 97.

The following file is available for download from the Microsoft Download Center:

Download Prntimg.exe now

For additional information about how to download Microsoft Support files, click the following article number to view the article in the Microsoft Knowledge Base:

119591 How to Obtain Microsoft Support Files from Online Services

Microsoft scanned this file for viruses. Microsoft used the most current virus-detection software that was available on the date that the file was posted. The file is stored on security-enhanced servers that help to prevent any unauthorized changes to the file.

To install and use this macro, download this file, save it to a folder (such as the My Documents folder or your PowerPoint folder), and then double-click it to extract the Macro for Q171328.ppt file. Open this file in PowerPoint and follow the instructions on the slide.

NOTE: If you receive a macro warning, click Enable Macros to enable the macro.

Method 2: Add a border to the slide images in PowerPoint 97

Open the presentation in PowerPoint 97, 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 receive the desired results.
Click OK.
On the View menu, click Notes Page.
Repeat steps two through five 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 is the VBA macro that 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: Q171328
' TITLE     : PPT97: Slide Images on Notes Pages Don't Print
'
''''''''''''''''''''''''''''''''''''''''''''''''
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

Additional query words: powerpnt kbprint kbusage upgrade migrate 4.00 ppt4 ppt8 ppt8.0 8.00 missing blank empty space notes print mac prntimg exe

Keywords: kbdownload kbinterop kbgraphxlink kbconversion kbfile kbprb kbgraphic KB171328