Private Sub Command7_Click()

Dim strAdresa As String
Dim stDocName As String

SetPrt (4) 'Izbor PDF printer iz tablice Stampaci
    
    stDocName = "rptPonuda"
    
    DoCmd.OpenReport stDocName, acViewNormal

' Otvara Outlook Expres

DoCmd.SendObject _
    , _
    , _
    , _
    , _
    , _
    , _
    , _
    , _
    True

End Sub