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

我打印文件 外部PDF。

 

用商业版打印没问题

 

转换 开发板后  打印 提示  内存不足。。。。。  而且还是只针对 PDF文件页数 大于20页是时候才发生，该怎么解决呢！

怎么用商业版打印没问题。。。。 

 

 

转换格式后，用 开发板打印

            Dim fileName1 As String =   dr("受领书")
            Dim obj1 As object = CreateObject("WScript.Network")
            obj1.SetDefaultPrinter("EPSON LQ-1600K IIIH ESC/P2")
            If filename1 IsNot Nothing Then
                PDFView.PrinterUtil.RenderDPI = 350
                Dim pageCount1 As Integer = pdf.PageCount(fileName1)   '获取页码
                PDFView.PrinterUtil.PrintImagesToPrinter(fileName1,1, pagecount1, 1, False)
            End If
            Dim fileName As String = dr("路径")  '文件路径
            Dim obj As object = CreateObject("WScript.Network")
            obj.SetDefaultPrinter(dayinji)
            If filename IsNot Nothing Then
                PDFView.PrinterUtil.RenderDPI = 500
                Dim pageCount As Integer = pdf.PageCount(fileName)   '获取页码
                Dim copyCount As Integer = Math.Ceiling((pageCount - 2)/4)

  If dr("货号")="H2" Then
                  
                    Dim sum1 As Integer
                    sum1 =DataTables("订单明细").Compute("sum(箱体总高)","[订单条码] = '" & dr("订单条码") &"' And [客户品番] =  '90915CA003'")
                    If sum1 >0 Then
                    PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 1, 2, Math.Ceiling(sum1/396), False)
                    End If
                    Dim sum2 As Integer
                    sum2 =DataTables("订单明细").Compute("sum(箱体总高)","[订单条码] = '" & dr("订单条码") &"' And [客户品番] <>  '90915CA003'")
                    PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 1, 2, Math.Ceiling(sum2/396), False)
                    PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 3, pagecount, 1, False)
                Else
                    If dr("货号")="K5" Then
                        Dim sum4 As Integer
                       
                        sum4 =DataTables("订单明细").Compute("sum(箱体总高)","[订单条码] = '" & dr("订单条码") &"' And [客户品番] = '177000V110'")
                        If sum4 > 0 Then
                            PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 1, 2, Math.Ceiling(sum4/297), False)
                        End If
                        Dim sum5 As Integer
                        sum5 =DataTables("订单明细").Compute("sum(箱体总高)","[订单条码] = '" & dr("订单条码") &"' And [客户品番] <> '177000V110'")
                        PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 1, 2, Math.Ceiling(sum5/396), False)
                        PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 3, pagecount, 1, False)
              '追加空箱打印
                        Dim sum6 As Integer
                        sum6 =DataTables("订单明细").Compute("sum(箱数)","[订单条码] = '" & dr("订单条码") &"' And [箱体高度] = '33' And [客户品番] <> '177000V110'")
                        Dim sum7 As Integer
                        sum7 =DataTables("订单明细").Compute("sum(箱数)","[订单条码] = '" & dr("订单条码") &"' And [箱体高度] = '22' And [客户品番] <> '177000V110'")
                          Dim vk As DataRow = DataTables("空箱计算表").Find("EU33 = '" & sum6 & "' and  EU22 = '" & sum7 & "'")
                        If vk IsNot Nothing Then                             
                           If vk("空箱数") > 0 Then
                            Dim ln As Integer = vk("空箱数")
                            Dim strpath As  String = "E:\出货系统\Attachments\空箱" & ln & ".xlsx"
                            If FileSys.FileExists(strpath)  Then
                                Dim App As New MSExcel.Application
                                Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(strpath)
                                Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
                                Ws.PrintOut(From:=1,To:=1,Copies:=1,Preview:=False)
                                App.Visible = True
                                App.Quit
                            End If
                            End If
end if

 

 

打印的时候   "H2"  就会提示 。   

 

                 "K5"  没问题！

老师 ， 你测试一下。

 

里面有3个打印PDF用的DLL ， 需要先引用的。

另外 一个是用来测试用的PDF文档。你修改下打印路径

代码在窗体1里面。

用 开发板打印 提示内存不足！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:3106_b_707j_1_h2_2015071004_k.zip

gsdll32.dll 这个DLL

 

10M。。。。

 

这些DLL都是在 这个论坛下的  之前 唐僧三摆手  打印  的 帖子！

 

还有  林海伦 版主 帮忙修改了一下。

 

我也不知道 源码是什么。。。

 

 

我测试过 版主的方法 超过10页的部分分开打印，  但还是会提示  内存不足   （用回商业版的 没问题）

 

打印出来的 纸张 上边写着

 

 没看清：  i/o

error:      inputreaderror

operator: readimage

position:  7.35

 

 

哦 我在测试一下，谢谢版主

 

在问下

 

1"如何在 查看DLL的源代码

 

2 我需要发布项目 ，发布后的项目 是不是  开发者的权限？

 

3：你电脑的配置内存是多少

还是不行，我用 的是   开发者权限登录的

 

之前版主帮我搞的帖子 ， 老师帮忙看下 源码是不是 指 帖里面的一些代码

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28498&page=4&move=next

老师 我后期 又试过  

 

在电脑里面追加内存条 也不行

 

用管理员账号登陆页不行，

 

连续打印，打印第一份的时候没问题，打印第二份的时候就提示 “内存不足”  

 

可能时间间隔有点长，代码见上记， DLL在上边链接。

 

打印的附件也很少，不知道哪里出问题。

 

 具体打印的 内容见附件

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:3106b_707j_1_h2_201507081936_k.rar

老师 ， 我看了下帮助 没找到有 打印  pdf 相关 的！

 

 

我的目的 是 根据  PDF 的页数   来判断  怎么打印

 

例如 1-2 重复打印 几次，  3-4 打印 几次 

 

 

 

不是很懂， 能帮忙做一个简单的例子吗？

老师，再请教！

 

我试过你的方法可以打印哦！

 

问题有几个！

 

1：打印的时候会 弹出一个  adobe reader 的 文件。

这个能否在后台打印，不弹出 这个问题件？

 

2：我不是很懂，但看你的代码 是 把 原来的 PDF文件  分离出来 建一个新的 PDF文档 ，然后在打印。

 

这个时候 问下 如果我需要 批量打印， 新建的文档是不是自动覆盖， 另外批量打印的时候，好像代码 好长！ 有没的简洁一点。

 

我只需要  根据 其 页数 确定打印的方法！

 

3：startInfo.Verb = "print" 

这个 能否  设置 print 的 次数？？ ， 重复打印几次？

 

其实我就是想 获取  一个PDF文件 的页数 

 

不知道能否在 某个PDF文件中  有代码直接获知？？

 

另外根据 页数 确定打印的 内容 为那些，那些一个文件里面需要重复打印，那些只打印一次！