prague12

參考來源 http://teacher.syset.com/viewtopic.mspx?t=3911
先安裝OFFICE的增益集支援xps pdf 就可以透過OFFICE的SDK來轉生成PDF檔


另外有其他方法 可參考 http://blog.xuite.net/sugopili/computerblog/20428770

====================================


Imports Microsoft.Office.Interop
Imports System.IO


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click





Dim oExcel As New Excel.Application
Dim oBooks As Excel.Workbooks, oBook As Excel.Workbook
Dim oSheets As Excel.Sheets, oSheet As Excel.Worksheet
Dim oCells As Excel.Range
Dim sFile As String, sTemplate As String

' Excel 檔路徑
sTemplate = "c:\Demo.xlsx"

' 副檔名可以改成 .xls, .xps, .pdf
sFile = ("c:\QQQkkk" & ".pdf")

oExcel.Visible = False
oExcel.DisplayAlerts = False

oBooks = oExcel.Workbooks
oBooks.Open(sTemplate)
oBook = oBooks.Item(1)
oSheets = oBook.Worksheets
oSheet = CType(oSheets.Item(1), Excel.Worksheet)
oCells = oSheet.Cells

' 設定第 8 列第 3 欄的值
oCells(8, 3) = "Hello Worldqq"

' 方式#1: 列印出 .XPS 檔
'oSheet.PrintOutEx(PrintToFile:=True, PrToFileName:=sFile, Copies:=1)

' 方式#2: 另存成 PDF 檔
oSheet.ExportAsFixedFormat(Excel.XlFixedFormatType.xlTypePDF, sFile)

' 方式#3: 另存成 XLS 檔
' oSheet.SaveAs(sFile)

oBook.Close()

oExcel.Quit()




End Sub
End Class