PPT97: Slide Images on Notes Pages Don't Print

ID: Q171328


The information in this article applies to:


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 release 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 Software Library:
Prntimg.exe
Release Date: Mar-16-1998

For more information about downloading files from the Microsoft Software Library, please see the following article in the Microsoft Knowledge Base:
Q119591 How to Obtain Microsoft Support Files from Online Services


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.

This file is also available at the following Microsoft World Wide Web site:
http://support.microsoft.com/support/downloads
After connecting to this site, click Microsoft Office, click PowerPoint, and then click 97.

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:
  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 receive the desired results.


  5. Click OK.


  6. On the View menu, click Notes Page.


  7. Repeat steps two through five for each individual Notes page in the presentation.



STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article.


MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft Support professionals 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 needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/refguide/


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


Keywords          : kbgraphic kbinterop kbdta kbconversion 
Version           : WINDOWS:97
Platform          : WINDOWS 
Issue type        : kbprb 

Last Reviewed: May 26, 1999