你用的是什么打印机,如果不激光的话,那就有可以是打印机的问题, 我公司现在有的pdf档就有这种情况,所以这样的档案我们都用喷墨的打.
解决方案 »
- 删除treeview节点
- asp.net网页发布问题
- 页面排版问题,郁闷....
- 想找ASP.Net虚拟主机空间的网友进
- !!!#%^%&!!!!求正则表达式,只能是*.wma,*.mp3,,*.MP3,,*.WMA!!!!!*^!!....在线等先!!
- 页面双击滚动和XHTML兼容的问题
- 如何实现自动安装?
- asp.net里面怎样从javascript中访问session
- 不要在数据库里面写,在程序里怎么计算出一个表的总记录数???
- FrameSet的有关问题 ++++ 在*.aspx中有没有类似Response.Target(错)的属性?
- 如何取得radiobuttonlist值
- xml文件中的内容在DataGrid中显示乱码,求救!!!!
我想应该与打印机没有关系,因为在网页显示时字体就虚,所以打出来自然就虚,是不是什么设置问题,我的打印设置代码如下,请指点:
Dim conn As New SqlConnection
Dim sqldata As SqlDataAdapter
Dim ds As New DataSet
Dim opt As New ReportDocument
Dim qsrq, zzrq As String
qsrq = Me.Session("qsrq")
zzrq = Me.Session("zzrq") conn.ConnectionString = Me.Application("connect") sqldata = New SqlDataAdapter("SELECT wtdw as '委托单位', isnull(SUM(hte),0) AS 合同额, isnull(SUM(hte),0) / (SELECT SUM(hte) FROM htk) AS '合同额所占公司总额比重%', isnull(SUM(khhte),0) AS 考核合同额 FROM htk,rule_bmdmk where rule_bmdmk.bcode=htk.bcode and rule_bmdmk.ssgs='" + Session("ssgs") + "' and qdrq between '" + Session("qsrq") + "' and '" + Session("zzrq") + "' GROUP BY wtdw", conn)
sqldata.Fill(ds, "htk")
opt.Load(Server.MapPath("htgl_wtdw_all1.rpt")) opt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = opt
Dim fname As String
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim crExportOptions As ExportOptions fname = "c:\temp.pdf"
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = fname
crExportOptions = opt.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
opt.Export()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile(fname)
Response.Flush()
Response.Close()