Foxtable(狐表)用户栏目专家坐堂 → 商业版转开发版后出现问题


  共有3684人关注过本帖平板打印复制链接

主题:商业版转开发版后出现问题

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/1 11:41:00 [只看该作者]

测试了一下pdf的静默打印太麻烦,换一种方式打印,只需要引用一下 iTextSharp.dll

 

Dim reader As New iTextSharp.text.pdf.PdfReader("d:\test.pdf")
Dim document As New  iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
Dim n As Integer = reader.NumberOfPages
Dim baos As New IO.FileStream("d:\temp.pdf", IO.FileMode.Create, IO.FileAccess.Write)
Dim copy As New  iTextSharp.text.pdf.PdfCopy(document, baos)
copy.ViewerPreferences =  iTextSharp.text.pdf.PdfWriter.HideToolbar Or iTextSharp.text.pdf.PdfWriter.HideMenubar Or iTextSharp.text.pdf.PdfWriter.HideWindowUI
'往pdf中写入内容
document.Open()
For i As Integer = 1 To n
    Dim page As  iTextSharp.text.pdf.PdfImportedPage = copy.GetImportedPage(reader, i)
    copy.AddPage(page)
Next

document.Close()
reader.Close()

Dim pd As new Printing.PrintDocument()
Dim p As new Process()
Dim startInfo As new System.Diagnostics.ProcessStartInfo()
startInfo.CreateNoWindow = True
startInfo.WindowStyle =  System.Diagnostics.ProcessWindowStyle.Hidden
startInfo.UseShellExecute = True
startInfo.FileName = "d:\temp.pdf"
startInfo.Verb = "print"
'startInfo.Arguments = "/p /h \" + startInfo.FileName + """""" + pd.PrinterSettings.PrinterName + """"
p.StartInfo = startInfo
p.Start()

 


 回到顶部
总数 24 1 2 3 下一页