当我打印到页面时,我得到一个空白的 PDF 页面。
这是我的代码的一部分
Dim theURL, theID
Dim i
Dim strSubject, strBody
Dim strAttach
Dim thedoc As New Doc
theDoc.HtmlOptions.Engine=EngineType.Gecko
'Set minimum number of items a page of HTML should contain.
' Otherwise the page will be assumed to be invalid.
thedoc.HtmlOptions.ContentCount = 20
' Try to obtain html page 10 times
thedoc.HtmlOptions.RetryCount = 10
' The page must be obtained in less then 20 seconds
thedoc.HtmlOptions.Timeout = 20000
'On Error Resume Next
thedoc.Rect.Inset(1, 1)
thedoc.Page = thedoc.AddPage()
theURL = _URL & "&xxx=" & now()
theID = thedoc.AddImageUrl(theURL)
........
........
........
........
Dim theData
theData = thedoc.GetData()
Response.ContentType = "application/pdf"
Response.AddHeader("content-length", theData.Length.ToString())
Response.AddHeader("content-disposition", "inline; filename=print.pdf")
Response.BinaryWrite(theData)
thedoc.Clear()
thedoc = Nothing
请帮忙。我无法解决问题。已经搜索了谷歌并用完了想法。我需要安装最新版本的 Adobe acrobat 吗?