使用 vba 打印屏幕 PDF 文件答案

【问题标题】：Print Screen PDF file with vba使用 vba 打印屏幕 PDF 文件
【发布时间】：2018-02-07 23:53:17
【问题描述】：

我想打开一个 PDF 文件并打印我指定的子地址，但是当我使用 Application.SendKeys "(%{1068})" 时只打印屏幕用户表单。我的问题是如何打印屏幕只是子地址评级变化。

enter code here
Private Sub AlteraRating_Click()
Dim strFolde As String, Month As String, Year As String, strFile As String

Month = Format(SalvaData, "mm")
Year = Format(SalvaData, "yyyy")
pdfData = Format(SalvaData, "yyyymmdd")
strFolder = "C:\Report\Report of Investments\" & Year & "\" & Month & "\"


strFile = strFolder & "RAI_INFRAPREV PLANO CV_F03148_" & pdfData & ".pdf"
ThisWorkbook.FollowHyperlink strFile, "Rating Changes"

Application.SendKeys "(%{1068})"
DoEvents

End Sub

【问题讨论】：

标签： vba pdf

【解决方案1】：

尝试使用以下代码打开 PDF，FollowHyperlink 将无法保持打开足够长的时间来打印屏幕。

Dim shell As Object
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & strFile & Chr(34), 1, False

【讨论】：