diff --git a/components/printers/unix/cupsprinters.inc b/components/printers/unix/cupsprinters.inc
index e8f0078db8..cf9757b3a2 100644
--- a/components/printers/unix/cupsprinters.inc
+++ b/components/printers/unix/cupsprinters.inc
@@ -851,9 +851,12 @@ var
   var
     CurPath: String;
   begin
+    Result:=false;
     CurPath:=CleanAndExpandDirectory(Path);
-    Result:=DirPathExists(CurPath);
-    if Result then NewPath:=CurPath;
+    if CurPath='' then exit(false);
+    if not DirectoryIsWritable(CurPath) then exit;
+    NewPath:=CurPath;
+    Result:=true;
   end;
 
 begin