multipule msgbox

[tubar]

sorry..im new and need help with the vba that fires multipule message boxes...i get to the "print pdf and save" and it displays an error msg cant output to...any suggestions???

Private Sub Form_Load()

Dim MResponse As Integer

    MResponse = MsgBox("HAVE YOU IMPORTED NEXT WEEKS PAYROLL EVENT NUMBERS??)", vbYesNo, "END OF PAYROLL QUESTION")


    If MResponse = vbYes Then


    MResponse = MsgBox("PRINT PDF AND SAVE!!!", vbOKOnly, "END OF PAYROLL")
    If MResponse = vbOK Then
    DoCmd.OutputTo acOutputReport, "RPTSTGHNDTRACKING", acFormatPDF, "STAGEHAND PAYROLL.PDF", True
    Else
    DoCmd.Close acForm, , acSaveYes
    
    End If
    Else
    End If
    
   
End Sub

 

[jdraw]

see if the example at this site helps
http://www.anysitesupport.com/access-export-report-to-pdf-using-vba/

 

[tubar]

GREAT LINK! works like a champ

 

[jdraw]

Glad to help