如何创建一个PDF文件？.doc

如何创建一个PDF文件？? 详见以下代码： %Option ExplicitSub CheckXlDriver()? ? ? On Error Resume Next? ? ? Dim vConnString? ? ? Dim oConn, oErr? ? ? vConnString = DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:? ? ? 连接NUL? ? ? Set oConn = CreateObject(ADODB.Connection)? ? ? oConn.Open vConnString? ? ? For Each oErr in oConn.Errors? ? ? 如果Excel程序报告文件创建失败,别担心,这表示它正在正常运行呢 ? ? ? ? ? ? If oErr.NativeError = -5036 Then ? ? ? ? ? ? ? ? ? Exit Sub? ? ? ? ? ? End If? ? ? Next? ? ? Response.Write MDAC 供应商或驱动程序不可用,请检查或重新安装!brbr? ? ? Response.Write hex(Err.Number) Err.Description br? ? ? For Each oErr in oConn.Errors? ? ? ? ? ? Response.Write hex(oErr.Number) oErr.NativeError oErr.Description br? ? ? Next? ? ? Response.EndEnd SubFunction GetConnection(vConnString)? ? ? On Error Resume Next? ? ? ? ? ? Set GetConnection = Server.CreateObject(ADODB.Connection)? ? ? GetConnection.Open vConnString? ? ? ? ? ? If Err.Number 0 Then? ? ? ? ? ? Set GetConnection = Nothing? ? ? End IfEnd FunctionFunction OptionTag(vChoice,vTrue)? ? ? Dim vSelected? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? If vTrue Then? ? ? ? ? ? vSelected = selected? ? ? End If? ? ? ? ? ? OptionTag = option vSelected _? ? ? ? ? ? Server.HtmlEncode(vChoice) /option vbCrLfEnd FunctionFunction IsChecked(vTrue)? ? ? If vTrue Then? ? ? ? ? ? IsChecked = checked? ? ? End IfEnd FunctionFunction BookOptions(vXlFile)? ? ? Dim vServerFolder? ? ? Dim oFs, oFolder, oFile? ? ? Dim vSelected? ? ? vServerFolder = Server.MapPath(.)? ? ? Set oFs = Server.CreateObject(Scripting.FileSystemObject)? ? ? Set oFolder = oFs.GetFolder(vServerFolder)? ? ? For Each oFile in oFolder.Files? ? ? ? ? ? If oFile.Type = Microsoft Excel Worksheet Then? ? ? ? ? ? ? ? ? vSelected = (oFile.Name = vXlFile)? ? ? ? ? ? BookOptions = BookOptions _? ? ? ? ? ? ? ? ? OptionTag(oFile.Name, vSelected)? ? ? ? ? ? End If? ? ? Next? ? ? Set oFolder = Nothing? ? ? Set oFs = NothingEn