Application.SendKeys

[oliquino]

Somehow finding difficult to activate Application.SendKeys NewPDFFile, True and cant insert/code the path file name to be use on the save as dialog box.

If .Range("H" & StudentRow).Value = Empty Then
StudentName = .Range("A" & StudentRow).Value 'Student Name

NewPDFFile = ThisWorkbook.Path & "\" & StudentName & "_Enrollment.pdf" 'New File Name
If Dir(NewPDFFile, vbDirectory) <> "" Then Kill (NewPDFFile) 'Deleted File if exists

Application.SendKeys "^+(s)", False
Application.Wait Now + 0.00001
Application.SendKeys NewPDFFile, True
Application.Wait Now + 0.00003
Application.SendKeys "%(s)" 'SAve As
Application.Wait Now + 0.00002


Appreciate any solution. Thanks

 

[jkpieterse]

What is the sendkeys bit in your code supposed to do?

 

[oliquino]

apologies as im new and not so familiar with the language used.

Im trying to save a file however it doesn't proceed on changing on the desired pdf file name on the save as dialog box.

Application.SendKeys NewPDFFile, True

NewPDFFile = ThisWorkbook.Path & "\" & StudentName & "_Enrollment.pdf" 'New File Name
If Dir(NewPDFFile, vbDirectory) <> "" Then Kill (NewPDFFile) 'Deleted File if exists

 

[jkpieterse]

If you record a macro to export a sheet to PDF, you end up with this code:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\XXX\Documents\TestPDP.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

So just replace the hard-coded path and file name with your variable:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        NewPDFFile, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False