Function SetDefPrinter(Drajver As String) As Boolean
 
   SetDefPrinter = (aht_apiWriteProfileString("Windows", "Device", Drajver) <> 0)
End Function
 
 
Function Pozivdefprinter(ImeReporta As String)
Dim Drajver As String
Dim Vrijednost As Boolean

   
   Drajver = ReadIniValue(App.Path & "\Setup.ini", "Printeri", ImeReporta)
   Vrijednost = SetDefPrinter(Drajver)
End Function