Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 在报告中显示PDF_Ms Access_Vba - Fatal编程技术网

Ms access 在报告中显示PDF

Ms access 在报告中显示PDF,ms-access,vba,Ms Access,Vba,我想动态显示.pdf文件,如报告中的图片,它应该如下所示: 我已经试过使用webbrowser,但是在预览或打印报告时,它没有显示出来 我还尝试了ole未绑定对象,也没有成功,这里是我在Report\u Load事件中的代码: 编辑: 随着我想动态显示。。。我想动态更改报告中的pdf 编辑2: 我刚刚发现OLEunbound对象的类型是嵌入的,但我认为应该链接这个对象,正如我在其他论坛中读到的: 当我试图更改它时,会出现错误:无法更改此属性,因为它是只读的您可以获得not Reader的许可版本

我想动态显示.pdf文件,如报告中的图片,它应该如下所示:

我已经试过使用webbrowser,但是在预览或打印报告时,它没有显示出来

我还尝试了ole未绑定对象,也没有成功,这里是我在Report\u Load事件中的代码:

编辑:

随着我想动态显示。。。我想动态更改报告中的pdf

编辑2:

我刚刚发现OLEunbound对象的类型是嵌入的,但我认为应该链接这个对象,正如我在其他论坛中读到的:


当我试图更改它时,会出现错误:无法更改此属性,因为它是只读的

您可以获得not Reader的许可版本,并通过编程控制它以捕获所需的图像

或者,您可以使用VBA调用命令行PDF转换器,如有必要,可以通过编程和动态方式将PDF转换为图像see,甚至使用正确的驱动程序将PDF打印为图像文件see

一旦有了图像文件,就可以使用VBA(可能是使用)轻松地将创建的图像加载到Access窗体中


如果没有更多的信息和对我之前问题的回答,我现在无法提供更多的建议,但我希望这能有所帮助

你能让它使用pdf的超链接而不是嵌入对象吗?如果我创建一个新的报告,添加一个未绑定的对象框架并选择一个pdf,它就可以正常工作了。设置好之后,看看下面的讨论:这些PDF图像的动态性如何?PDF的数量有限吗?有多少是否要以编程方式选择显示哪一个或者,它们是由另一个程序动态生成的?不需要像填写PDF表格那样与PDF交互,对吗?它们是单页PDF吗?它们的尺寸都一样吗?您有Adobe Acrobat而不是reader的完整版本吗?您是否对使用第三方或可能未经许可的软件来实现这一点有意见?这需要只在一个Access安装上工作吗?…我想你已经发布了赏金,因为你已经意识到,一些研究表明,通过传统的方式,你想做的事情是不可能的。。。也就是说。话虽如此,总有办法的。根据您对上述澄清的回答,我有一些想法。@Beth Hyperlink也不会更改表单加载/打开事件上的pdf-也没有错误。您好,先生,我已经听说过2jpeg方法,但这也是显示一页pdf的最耗时的方法,我想还有其他方法oleunbound已经显示pdf了,但是我不能在load/open/current Event表单上加载其他内容你是说设置的图像数?这些都是pdf,我没有得到的是,在创建oleunbound对象时,我可以选择pdf,并且它也正确显示了,但是我不能用上面的vba代码更改它,也没有错误,第一个pdf只是保留。
Dim vPath As String

vPath = GetNewestDocument(Me!artNr)
'Returns path for pdf file, about:blank if there is no file.
If vPath = "about:blank" Then
        Me!PDFBrowser.visible = True
        Me.PDFBrowser.SourceDoc = vbNullString
Else
        With Me.PDFBrowser
        .OLETypeAllowed = acOLELinked
        .SourceDoc = vPath
        .SizeMode = acOLESizeStretch
        End With
End If