1 files changed, 2 insertions, 1 deletions
diff --git a/bin/arapprn.pl b/bin/arapprn.pl
index c8b19726..18fd884f 100755
--- a/bin/arapprn.pl
+++ b/bin/arapprn.pl
@@ -115,7 +115,8 @@ sub print {
   }
 
   $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
-  $form->{OUT} = ">${LedgerSMB::Sysconfig::spool}/$filename";
+  $form->{OUT} = ">${LedgerSMB::Sysconfig::spool}/$filename" if 
+  	$form->{media} ne 'screen';
 
   $form->{queued} .= " $form->{formname} $filename";
   $form->{queued} =~ s/^ //;