Hi,
When I convert XLS file to PDF the images and annotations are lost.
How can I convert it without lost the images and annotations?
This is my code:
Dim workbook2 As New Spire.XLS.Workbook()
workbook2.LoadFromFile(guardadocs & "\Archivo1.XLS", Spire.XLS.ExcelVersion.Version97to2003)
Dim iwkst As Integer
For iwkst = 1 To workbook2.Worksheets.Count
Select Case workbook2.Worksheets.Item(iwkst - 1).Columns.Length
Case Is < 7
workbook2.Worksheets.Item(iwkst - 1).PageSetup.PaperSize = Spire.XLS.PaperSizeType.PaperA4
workbook2.Worksheets.Item(iwkst - 1).PageSetup.Orientation = Spire.XLS.PageOrientationType.Portrait
Case Is <= 12
workbook2.Worksheets.Item(iwkst - 1).PageSetup.PaperSize = Spire.XLS.PaperSizeType.PaperA4
workbook2.Worksheets.Item(iwkst - 1).PageSetup.Orientation = Spire.XLS.PageOrientationType.Landscape
Case Is > 12
workbook2.Worksheets.Item(iwkst - 1).PageSetup.PaperSize = Spire.XLS.PaperSizeType.PaperA3
workbook2.Worksheets.Item(iwkst - 1).PageSetup.Orientation = Spire.XLS.PageOrientationType.Landscape
End Select
Next
workbook2.SaveToFile(guardadocs & "\Archivo1.PDF", Spire.XLS.FileFormat.PDF)