Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
   
Dim strAdresa As String
Dim stDocName As String
Dim PonudaID As String

SetPrt (6)
  
stDocName = "rptPonuda"
PonudaID = Forms!frmPonuda!PonudaID
DoCmd.OpenReport stDocName, acNormal

CopyPDF (PonudaID)
Exit_Command7_Click:
    Exit Sub
Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click
    
End Sub