Sub GenPrn()
    Dim Sld As Slide
    Open ActivePresentation.Path + "\Inf SldShw " + ActivePresentation.Name + ".txt" For Input As #1
	N = 0
    Do While Not EOF(1)
        Input #1, nomnbr
        CstSldShwNom = Trim(Left(nomnbr, 64))
		N = N + 1
        CstSldShwNomPdf = "Shw " & Format(N,"000")
        For Each Sld In ActivePresentation.Slides
            ActivePresentation.NotesMaster.HeadersFooters.Footer.Text = CstSldShwNom
        Next Sld
        ActivePresentation.PageSetup.SlideOrientation = msoOrientationHorizontal
        With ActivePresentation.PrintOptions
            .ActivePrinter = "Adobe PDF"
            .Collate = msoTrue
            .FitToPage = msoFalse
            .FrameSlides = msoTrue
            .HandoutOrder = ppPrintHandoutVerticalFirst
            .HighQuality = msoTrue
            .NumberOfCopies = 1
            .OutputType = ppPrintOutputTwoSlideHandouts
            .PrintColorType = ppPrintColor
            .PrintHiddenSlides = msoTrue
            .PrintInBackground = msoTrue
            .RangeType = ppPrintNamedSlideShow
            .SlideShowName = CstSldShwNom
        End With
        ActivePresentation.PrintOut
    Loop
    Close #1
End Sub