MsgBox yes / no advice

[ipbr21054]

Morning,

I have the code below but would like some advise for a slight alteration please as i got lost with the yes / no part of it..

The code saves a screen shot in the form of a PDF file.
The Yes / No box is where im stuck.

Clicking No would just continue to save as normal

Clicking Yes would save the file as normal BUT also open & print it

Private Sub Generate_Pdf_Click()
    Dim strFileName As String
    
    strFileName = "C:\Users\Ian\Desktop\REMOTES ETC\DR SCREEN SHOT PDF\" & Range("G13").Value & ".pdf"
    If Dir(strFileName) <> vbNullString Then
        MsgBox "INVOICE " & Range("G13").Value & " WAS NOT SAVED AS IT ALLREADY EXISTS", vbCritical + vbOKOnly, "GENERATE PDF FILE MESSAGE"
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.PrintArea = "$G$3:$O$61"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        MsgBox "INVOICE " & " WAS SAVED SUCCESSFULLY" & vbNewLine & "VIEW PDF FILE ?" & vbInformation + vbYesNo, "GENERATE PDF FILE MESSAGE"
                                                                                


        ActiveWorkbook.Save
    End With


End Sub

 

[mohadin]

Hi
Try like this

 x = MsgBox("INVOICE " & " WAS SAVED SUCCESSFULLY" & vbNewLine & "VIEW PDF FILE ?", vbInformation + vbYesNo, "GENERATE PDF FILE MESSAGE")
 If x = vbYes Then
 ' do some thig
 Else
  ' do what ever
 End If

 

[ipbr21054]

I understand that but it’s the actual writing it down I’m stuck with.

 

[mohadin]

Ok
in yuor case
change

MsgBox "INVOICE " & " WAS SAVED SUCCESSFULLY" & vbNewLine & "VIEW PDF FILE ?" & vbInformation + vbYesNo, "GENERATE PDF FILE MESSAGE"
ActiveWorkbook.Save
    End With

TO

    x = MsgBox("INVOICE " & " WAS SAVED SUCCESSFULLY" & vbNewLine & "VIEW PDF FILE ?", vbInformation + vbYesNo, "GENERATE PDF FILE MESSAGE")
    If x = vbYes Then
        ActiveWorkbook.Save
    End If
End With

 

[ipbr21054]

I’m lost by you reply.

No should be just save.

Yes should be save BUT also open file so I can view it.

 

[ipbr21054]

Hi,
Im currently with the code supplied below.

Where i have Yes was selected what do i replace it with so i can then print the saved pdf file.

Private Sub Generate_Pdf_Click()    Dim strFileName As String
    
    strFileName = "C:\Users\Ian\Desktop\REMOTES ETC\DR SCREEN SHOT PDF\" & Range("G13").Value & ".pdf"
    If Dir(strFileName) <> vbNullString Then
        MsgBox "INVOICE " & Range("G13").Value & " WAS NOT SAVED AS IT ALLREADY EXISTS", vbCritical + vbOKOnly, "GENERATE PDF FILE MESSAGE"
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.PrintArea = "$G$3:$O$61"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        pdf = MsgBox("INVOICE " & " WAS SAVED SUCCESSFULLY" & vbNewLine & vbNewLine & "DO YOU WANT TO PRINT THE PDF FILE ?", vbExclamation + vbYesNo, "GENERATE PDF FILE MESSAGE")
        If pdf = vbYes Then
        MsgBox "Yes was selected"
        Else
        ActiveWorkbook.Save
        End If
    End With


End Sub

 

[ipbr21054]

I applied the following for it to work,thanks

ActiveWindow.SelectedSheets.PrintOut Copies:=1