用VBA打印屏幕PDF文件

Question

我想打开一个pdf文件并打印我指定的子address，但是当我使用application.sendkeys.sendkeys时"(％{1068}("只需打印屏幕用户form。我的问题是打印屏幕的额定值更改。

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:ReportReport of Investments" & Year & "" & Month & ""

strFile = strFolder & "RAI_INFRAPREV PLANO CV_F03148_" & pdfData & ".pdf"
ThisWorkbook.FollowHyperlink strFile, "Rating Changes"
Application.SendKeys "(%{1068})"
DoEvents
End Sub

Answer 1

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

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