使用嵌入脚本的VBA JavaScript访问输出PDF
作为一名非传统程序员，我倾向于从不同的角度看待事情。这正是其中一次。我有一个使用嵌入脚本的VBA JavaScript访问输出PDF,javascript,ms-access,pdf,vba,Javascript,Ms Access,Pdf,Vba,作为一名非传统程序员，我倾向于从不同的角度看待事情。这正是其中一次。我有一个accdb，当前每2分钟运行一次并输出PDF文件。新的PDF会覆盖旧的，除非有人打开了其中一个文件。在这种情况下，它将跳过打开的文件，并在2分钟后重新尝试。我遇到的问题是，一些打开这些PDF的用户将它们最小化并忘记它们，在某些情况下，在几天甚至几周内不允许更新文件。我想做的是嵌入一个工作动作，在文件打开几个小时后关闭它。我发现了如何做到这一点，我已经测试了它，它是有效的。我的问题是，我需要通过VBA，在创建PDF时将该操
accdbPDFPDFPDFVBAPDFDoCmd.OutputTo acOutputReport, "H&B Stock Research", acFormatPDF, strPathAndFile, False
我研究过的所有站点都向您展示了如何通过AcrobatGUI添加脚本/动作。但我想尝试通过Access中的
VBA Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
'Constants that are used by the API
Const WM_CLOSE = &H10
Dim mHwnd As Long
mHwnd = FindWindow(vbNullString, mFileName & " - Adobe Reader") ' application title
If IsWindow(mHwnd ) = 1 Then ' or just If mHwnd Then
'Send termination signal
' you can also capture the return value from postmessage to understand errors.
PostMessage mHwnd , WM_CLOSE, 0&, 0& '
Debug.print "File was open but closed: " & mFileName
End If
.. continue with your copy function
请参见：或者，是否有一种已知的方法使用VBScript在VBA输出后注入属性？如果您有两个文件夹位置，一个用于access输出文件夹，另一个用于用户查看，则可以实现这一点。将pdf输出到“主文件夹”中，然后每隔2分钟将最新副本复制到用户文件夹（如果该文件夹中有任何pdf打开，请记住关闭）。缺点是。。。您必须使用VBA代码从文件夹复制并粘贴到folder@raymondSee我应该澄清一下。我已经有了这样的设置。我有一个
BatchaccbddBPDFBatchVBSPDF