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