I create the pdf/a-1b from a pdf with simple annotations on the first page as follows:
- Code: Select all
Dim PDFADocument As New Spire.Pdf.PdfNewDocument
PDFADocument.Conformance = Spire.Pdf.PdfConformanceLevel.Pdf_A1B
Dim Temp As New Spire.Pdf.PdfDocument(input_pdf)
Temp.Pages.Add()
Dim annotationsWidget As Spire.Pdf.Annotations.PdfAnnotationCollection = Temp.Pages(0).AnnotationsWidget
For i As Integer = 0 To annotationsWidget.Count - 1
Dim annotation As Spire.Pdf.Annotations.PdfAnnotation = annotationsWidget(i)
If TypeOf annotation Is Spire.Pdf.Annotations.PdfLineAnnotationWidget Then
Dim line As Spire.Pdf.Annotations.PdfLineAnnotationWidget = TryCast(annotation, Spire.Pdf.Annotations.PdfLineAnnotationWidget)
Temp.Pages(1).AnnotationsWidget.Add(line)
End If
Next
Dim page As Spire.Pdf.PdfPageBase = Temp.Pages.Item(0)
Dim size As SizeF = page.Size
Dim p As Spire.Pdf.PdfPageBase = PDFADocument.Pages.Add(size, New Spire.Pdf.Graphics.PdfMargins(0))
page.CreateTemplate().Draw(p, 0, 0)
If annotationsWidget.Count <> 0 Then
PDFADocument.Pages(0).AnnotationsWidget.Add(annotationsWidget.List(0))
PDFADocument.Pages(0).AnnotationsWidget.List(0).Flags = 28
End If
PDFADocument.Save(output_pdf)
PDFADocument.Dispose()