主题：[求助]请问老师 狐表 能否 检查出 外部PDF文件的总页数

多谢老师,很实用,完全满足我的要求,太感谢了.

老师 你给的 文件我测试过 单独可行.

 

但放到我的文件里面.

 

会出现   我 定义了   行的变量

例如:   dim   t as row = tables("a").current

会提示 变量 定义错误.

 

我测试过

 

如果去掉  那几个dl l引用 就可以定义.  

 但加了 那几个 dll  的引用 就会出现这个情况.

上边的情况.

 

我上传附件你看下.

 

窗体 -GTMC订单 - 打印标签.

 

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

点击浏览该文件:管理项目4.table

 你试试代码改一下。看行不行，不行就把你的数据库上传上来，不然打不开文件，无法测试。

If Tables("订单总表").Rows.Count > 0  Then
        Dim dr As Row = Tables("订单总表").Current   
        Dim fileName As String =  dr("路径")  '文件路径
        If PDFView.ImageUtil.IsPDF(fileName) OrElse PDFView.ImageUtil.IsTiff(fileName) Then   '如果是pdf文件
            Dim pageCount As Integer = pdf.PageCount(fileName)   '获取页码      
            msgbox(Math.Ceiling((pageCount - 2)/4))
Dim copyCount As Integer = Math.Ceiling((pageCount - 2)/4)
    PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 2,  copyCount)    
            'PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 3, 1)   '从第1页开始,打印3页,打印1份,显示打印设置
            'PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 3, 1, False)   '从第1页开始,打印3页,打印1份,不显示打印设置
            'PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 2, 4, 2) '从第2页开始,打印到第4页,打印2份
            'PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 2, 4, 2, false) '不显示打印设置
            'PDFView.PrinterUtil.PrintImagesToPrinter(fileName, 3, pagecount, 1, False)
        End If
Tables("订单总表").Current("作成情况") = True
End If
DataTables("订单总表").Save

Tables("订单总表").Filter= "作成情况 = False"
Tables("GTMC订单_table3").Filter= "作成情况 = True"

我忘记了 有数据库!

 

由于  定义变量行 操作很经常, 怕 老冲突.

 

帮忙再看下.

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

点击浏览该文件:数据.zip

此主题相关图片如下：未命名.bmp

提示这个错误.

 嗯嗯，经测试，是这个 tessnet2_32.dll 文件的问题。

 这个dll是不需要引用的，你去除就可以了。楼主……

OK 可以了 多谢老师帮忙.

 

 

老师 再请教下  打印机的 路径 能否 进行设置。？  

 

要是可以 给个代码。

 打印机的路径？怎么个意思？是启动默认打印机的。

 如果要指定某个打印机，也可以。

 建议你用代码设置本机的默认打印机。

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("Fax") 'Fax是打印机名

恩 多谢林老师 明白了，

 

另外 我在实际操作中 发现 打印 的 速度 很慢  鼠标的漏斗时间 基本要 20秒，不知这个可以解决的么？

 

再问下 怎么学的。。。。。。

 

我没找到foxtable  这些知识 在哪里？