Ik heb een PPS gemaak over produkt info op iedere slide staat in een mooie layout één product voorgesteld.
Ik heb hier een printable versie van gemaakt en wil nu met een knop in mijn layout die printable versie afdrukken.
Dit voor naar mijn klanten een presentatie te kunnen opsturen in plaats van een dode PDF.

Ik heb je vraag zó geďnterpreteerd:

Op elke dia wil je een knop hebben die alleen die dia afdrukt, dus niet de hele diavoorstelling.

Hiertoe heb ik een macro opgenomen, en die ietwat aangepast, zodat die algemeen bruikbaar is.

Daarna heb ik een tekstvak gemaakt met de tekst 'afdrukken' erin, en daar de macro aangehangen door er rechts op te klikken, en te kiezen voor Actie-instellingen. Daar gekozen voor Macro uitvoeren, en de zojuist opgenomen en gewijzigde macro aangegeven.
Je kunt ook bij Diavoorstelling -> Actieknoppen -> Actieknop:Aangepast een mooi omkaderd knopje ervoor kiezen. Dan op die zojuist gecreerde knop weer rechtsklikken en kiezen voor Actie-instellingen. Daar kiezen voor Macro uitvoeren, en de zojuist opgenomen en gewijzigde macro aangegeven.

Dan zorgt 1x klikken op dat tekstvak voor het afdrukken van de huidige dia.

De aangepaste macro was:

Sub Macro1()
'
' De macro is opgenomen op 9-8-2006 door Tijs.
'

    With ActivePresentation.PrintOptions
        .RangeType = ppPrintCurrent
        .NumberOfCopies = 1
        .Collate = msoTrue
        .OutputType = ppPrintOutputSlides
        .PrintHiddenSlides = msoTrue
        .PrintColorType = ppPrintColor
        .FrameSlides = msoFalse
        .HandoutOrder = ppPrintHandoutHorizontalFirst
    End With
    ActivePresentation.PrintOut
End Sub

Dit werkt prima bij mij. Laat ons weten of het ook bij jou geholpen heeft.

[...]Deze oplossing werkt perfect, alleen nog een rand vraag kan ik ook refereren naar een andere dia die ik wil afdrukken.

Bedankt voor je compliment.

M.b.t. je vraag: dat kan wel, maar dan moet je weten welke dia (volgnummer) je wilt afdrukken. Verander je dus later je presentatie, moet je ook de macro van je knop aanpassen aan het nieuwe volgnummer.

Voorbeeld van een macro waarbij dia 2 wordt afgedrukt vanuit dia 1 of welke andere dia dan ook:

Sub Macro2()
'
' De macro is opgenomen op 9-8-2006 door Tijs.
'

    With ActivePresentation.PrintOptions
        .RangeType = ppPrintSlideRange
        With .Ranges
            .ClearAll
            .Add Start:=2, End:=2
        End With
        .NumberOfCopies = 1
        .Collate = msoTrue
        .OutputType = ppPrintOutputSlides
        .PrintHiddenSlides = msoTrue
        .PrintColorType = ppPrintColor
        .FrameSlides = msoFalse
        .HandoutOrder = ppPrintHandoutHorizontalFirst
    End With
    ActivePresentation.PrintOut
End Sub

Het enige wat je voor je eigen doeleinden aan moet passen is:
        With .Ranges
            .ClearAll
            .Add Start:=2, End:=2
        End With

Vervang de 2 in Start:= en End:=
door het dianummer dat je wilt laten afdrukken.

Tijs.