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

 虽然不知道你想做什么，还是，给你做一个简单的例子吧，希望你用得上。需要引用到第三方的dll。

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

点击浏览该文件:pdf例子.table

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

点击浏览该文件:需要的dll.zip

 效果如下。


此主题相关图片如下：ggg.gif

 预览应该是可以的，还有就是你说的需求都可以完成，等等上传个例子给你。

 弄不好的话，联系客服QQ远程。800014337

做了个例子，提供打印的方法，具体怎么判断，就你自己去看了。基本够用。

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

点击浏览该文件:pdf例子_打印.zip

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

点击浏览该文件:必备dll.zip

下面是额外的dll，用于打印的，需要复制到c:\windows\system32下。比较大。

http://pan.baidu.com/share/link?shareid=201393&uk=2634280261

 操作过程如下图。


此主题相关图片如下：gggg.gif

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

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"

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

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

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

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

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

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

知识都是在网上学的，你多查查google就行了。对于打印的快慢问题，我没有测试过。有可能是你的pdf文件过大，打开需要时间。

建议这种的话，你可以使用异步打印的方法。(也就是多线程，新开一个线程用于打印，然后你就可以继续使用狐表做你自己的工作了)(简单一点的就是直接使用任务计划去打印)

 其实多线调用是很简单的事情。只需要两句代码和一个方法就行了。

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

点击浏览该文件:多线程_例子.table