Dim iResponse As String

        iResponse = MsgBox("ZELITE LI KREIRATi PDF DOKUMENT ?  ", vbYesNo + vbQuestion + vbApplicationModal + vbDefaultButton2, "")

 

Select Case iResponse

Case vbYes:

  DoCmd.OutputTo acOutputReport, "RpProizvodi", acFormatPDF, filepath

   Case vbNo:

exit sub

End Select