views:

64

answers:

0
        Dim r As Rectangle = New Rectangle(0, 0, 600, 400)
        Dim spec As PdfFileSpecification = PdfFileSpecification.FileEmbedded(writer, swfFile, "Post Event Report", Nothing)
        Dim annot As PdfAnnotation = PdfAnnotation.CreateScreen(writer, r, "test.swf", spec, "application/x-shockwave-flash", True)
        annot.Flags = PdfAnnotation.FLAGS_PRINT
        writer.AddAnnotation(annot)