Need to print current PDF advice

[ipbr21054]

Morning,

The code below is 99% complete apart from printing the newly created PDF
Below is the current working code in use.

It does what i require BUT whenYES is selected on the MsgBox i currently have in place ("Hi")
This is where i would like to Hi with the code to print the current PDF

Private Sub Generate_Pdf_Click()
    Dim strFileName As String
    
    strFileName = "C:\Users\Ian\Desktop\GRASS CUTTING\CURRENT GRASS SHEETS\FIONA RECEIPTS\" & "FIONA " & Range("J4").Value & ".pdf"
    If Dir(strFileName) <> vbNullString Then
        MsgBox "GENERATED PDF INVOICE" & vbNewLine & vbNewLine & "FIONA " & Range("J4").Value & vbNewLine & vbNewLine & "WAS NOT SAVED AS IT ALLREADY EXISTS", vbCritical + vbOKOnly, "GENERATE PDF FILE MESSAGE"
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.PrintArea = "$F$2:$K$60"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        pdf = MsgBox("GENERATED PDF INVOICE" & vbNewLine & vbNewLine & "FIONA " & Range("J4").Value & vbNewLine & vbNewLine & "WAS SAVED SUCCESSFULLY", vbInformation + vbOKOnly, "GENERATE PDF FILE MESSAGE")
          
    End With
        Dim answer As Integer
        answer = MsgBox("DO YOU WISH TO PRINT THIS INVOICE ?", vbYesNo + vbInformation, "PRINT PDF FIONA MESSAGE")
    If answer = vbNo Then
        Range("J4").Value = Range("J4").Value + 1
        Range("G27").Select
    Exit Sub
    Else
    MsgBox ("Hi")
        Range("J4").Value = Range("J4").Value + 1
        Range("G27").Select
    End If
End Sub

Many Thanks

 

[Anthony47]

Put on top of the vba module that contains your Sub Generate_Pdf_Click the following declaration:

#If VBA7 Then
   Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Going to your code, I seem that the variable strFileName contains the full Path & Name of the file to be opened; thus you just have to replace the line MsgBox ("Hi") with

    lngX = ShellExecute(vbNull, "Open", strFileName, "", "", vbMaximizedFocus)

This will open the pdf file using the default application for pdf format

Bye