Private Sub CommandButton1_Click() CommandButton1.Visible = False With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange With .Ranges .ClearAll .Add Start:=46, End:=46 End With .NumberOfCopies = 1 .Collate = msoTrue .OutputType = ppPrintOutputSlides .PrintHiddenSlides = msoTrue .PrintColorType = ppPrintColor .FitToPage = msoFalse .FrameSlides = msoFalse End With ActivePresentation.PrintOut CommandButton1.Visible = True End Sub
|VBA find pdf and open from within excel||3||26|
|VBA Combobox Change Event not Fired Upon Change in Value||12||29|
|can't find file error on web browser||1||15|
|How to use vba code to toggle a text box in access between plain text and rich text or make the output view look like the plain text view where the data is not all lumped together?||3||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!