title image


Smiley Aktuelle Seite in PPS drucken ?!? - Das hier sollte funktionieren.
Hallo, Robin oder Bernd(?),



den folgenden Code habe ich gerade nochmal in einer PPT2000 pps getestet - er funktioniert. Kunststück -stammt auch von Shyam Pillai - dem PPT-VBA-Spezialisten.



Sub PrintCurrentSlide()

' Get current slide number in the running show.

Dim SldNo As Long

Dim Pres As Presentation

SldNo = SlideShowWindows(1).View.Slide.SlideIndex

Set Pres = SlideShowWindows(1).Presentation

With Pres.PrintOptions

' Set the shaperange type to slides

         .RangeType = ppPrintSlideRange

         .NumberOfCopies = 1

         .Collate = msoTrue

         .OutputType = ppPrintOutputSlides

         .PrintHiddenSlides = msoTrue

         .PrintColorType = ppPrintColor

         .FitToPage = msoFalse

         .FrameSlides = msoFalse

' Clear existing ranges

         .Ranges.ClearAll

' Set the print range to current slide

         .Ranges.Add SldNo, SldNo

     End With



     Pres.PrintOut

     Set Pres = Nothing

End Sub



Probier's einfach erstmal aus. Hm, was auch sonst ... Falls dich dann die Einzelheiten des Warum und Warum-Nicht interessieren, können wir die Diskussion hier gerne fortsetzen.



Gruß

Heiner

Gruß
Heiner
-----------------------------------------------------------------------------
Internet-Info:
www.ppt-faq.de
Vielseitige, kompetente und treffsichere Informationen zu PowerPoint in deutscher Sprache.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: