|
'make docx file
Dim ReportDocx As New clsReportDocx
Dim document As WordDocument = New WordDocument()
document = ReportDocx.GetReportDocx(.......)
'Save and close the document
document.Save(ResolveApplicationDataPath("/") & "/Result.docx")
document.Close()
Dim intermediateWordDocument As WordDocument = New WordDocument(ResolveApplicationDataPath("/") & "/Result.docx", FormatType.Docx)
'Convert docx to pdf and save as Pdf
Dim converter As DocToPDFConverter = New DocToPDFConverter()
converter.Settings.EnableFastRendering = True
Dim pdfDocument As PdfDocument = converter.ConvertToPDF(intermediateWordDocument)
converter.Dispose()
pdfDocument.Save("Result.pdf", Response, HttpContentDisposition.Attachment)
pdfDocument.Close(True)
intermediateWordDocument.Close() |
|
'make docx file
Dim ReportDocx As New clsReportDocx
Dim document As WordDocument = New WordDocument()
document = ReportDocx.GetReportDocx(.......)
Dim outputStream As MemoryStream = New MemoryStream() document.Save(outputStream, FormatType.Docx)
'Closes the instance of Word document object
document.Close()
outputStream.Position = 0
Dim intermediateDocument As WordDocument = New WordDocument(outputStream)
Dim converter As DocToPDFConverter = New DocToPDFConverter()
converter.Settings.EnableFastRendering = True
Dim pdfDocument As PdfDocument = converter.ConvertToPDF(intermediateDocument)
converter.Dispose()
pdfDocument.Save("Result.pdf", Response, HttpContentDisposition.Attachment)
pdfDocument.Close(True)
intermediateDocument.Close()
outputStream.Dispose()
|