<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function SetPrt(PrinterID As Integer) As Boolean
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim NazivP As String
Dim prtLoop As Printer

Set DB = CurrentDb()

SQL = "SELECT * FROM Stampaci WHERE Devices='" & PrinterID & "'"
Set Rs = DB.OpenRecordset(SQL)
NazivP = Rs.Fields(1)

For Each prtLoop In Application.Printers
    With prtLoop
       If R