Function SetPrt(PrinterID As Integer) As Boolean
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim NazivP As String

Set DB = CurrentDb()


SQL = "SELECT * FROM Stampaci WHERE Devices='" & PrinterID & "'"
Set Rs = DB.OpenRecordset(SQL)
NazivP = Rs.Fields(1) & "," & Rs.Fields(2) & "," & Rs.Fields(3)
SetPrt = (aht_apiWriteProfileString("Windows", _
    "Device", NazivP) <> 0)
  
End Function