Function SetPrt(NazivI As String) As Boolean
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim NazivP As String

Set Db = CurrentDb()
SQL = "SELECT * FROM Izvjestaji WHERE (((Izvjestaji.IzvjN)='" & NazivI & "'));"
Set Rs = Db.OpenRecordset(SQL)
NazivP = Rs.Fields(0)
Rs.Close
SQL = "SELECT * FROM Stampaci WHERE (((Stampaci.BrST)=" & NazivP & "));"
Set Rs = Db.OpenRecordset(SQL)
NazivP = Rs.Fields(1) & "," & Rs.Fields(2) & "," & Rs.Fields(3)
SetPrt = (aht_apiWriteProfileString("Windows", _
    "Device", NazivP) <> 0)
  
End Function