Databases
StackOverflow2013
Postsdbo
POCode to Convert Excel to PDF using VB.NET
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POCode to Convert Excel to PDF using VB.NET
    primarykey
    data
    text
    <p>I have VB code to convert .xlsx to .pdf in SCRIPT TASK. When I run the task its running successfully without any erros. But the Excel file is not converting to pdf format.</p> <p>I have added Microsoft.Office.Interop.Excel reference to the task. Please look into the below code. I could not know what is the error in this.</p> <p>Please help. Thanks in advance.</p> <pre><code>Imports Excel = Microsoft.Office.Interop.Excel Imports System.IO Imports System.Data.SqlClient Imports System.Text Imports Microsoft.Office.Interop.Excel Imports Microsoft.SqlServer.Dts.Runtime &lt;System.AddIn.AddIn("ScriptMain", Version:="1.0", Publisher:="", Description:="")&gt; _ &lt;System.CLSCompliantAttribute(False)&gt; _ Partial Public Class ScriptMain Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase Enum ScriptResults Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure End Enum Public Sub Main() Dim oApplication As ApplicationClass = New ApplicationClass() Dim oWorkbook As Workbook = Nothing Dim PDFFile As String = "D:\Convert XL to PDF\Test.pdf" Dim pFormatType As XlFixedFormatType = XlFixedFormatType.xlTypePDF Dim pQuality As XlFixedFormatQuality = XlFixedFormatQuality.xlQualityMinimum Dim pIncludeDocProperties As Boolean = True Dim pIgnorePrintAreas As Boolean = True Dim pFrom As Object = Type.Missing Dim pTo As Object = Type.Missing Dim pOpenAfterPublish As Boolean = False Try oWorkbook = oApplication.Workbooks.Open("D:\Convert XL to PDF\convert.xlsx") Dim oWorksheet As Excel.Worksheet oWorksheet = oApplication.Worksheets(1) oWorksheet.PageSetup.FitToPagesWide = 1 oWorksheet.PageSetup.FitToPagesTall = 1 oWorksheet.PageSetup.Zoom = False If Not oWorkbook Is Nothing Then oWorkbook.ExportAsFixedFormat(pFormatType, PDFFile, pQuality, _ pIncludeDocProperties, _ pIgnorePrintAreas, _ pFrom, pTo, pOpenAfterPublish) End If Catch ex As Exception End Try If Not oWorkbook Is Nothing Then oWorkbook.Close(False) oWorkbook = Nothing End If If Not oApplication Is Nothing Then oApplication.Quit() oApplication = Nothing End If GC.Collect() GC.WaitForPendingFinalizers() Dts.TaskResult = ScriptResults.Success End Sub End Class </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. USuser1990383
    1. USuser1990383
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. COIs excel installed on the server?
      singulars
      1. POCode to Convert Excel to PDF using VB.NET
      1. USChristian Sauer
    2. COyes its installed
      singulars
      1. POCode to Convert Excel to PDF using VB.NET
      1. USuser1990383
    3. COwhcih version? I THINK the code to save to pdf has changed in Office 2007 / 2010
      singulars
      1. POCode to Convert Excel to PDF using VB.NET
      1. USChristian Sauer
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload