Ticket #229: smbprint.diff

smbprint.VRX

@@ -131 +131 @@
     say length(PrintParms)
     if PrintParms <> "" then do
         parse var PrintParms '"'spoolfile'" "'smbprintername'" "'Jobname'" "'pages'" "'JobSize'"'
-        say 'Verzeichnis: "'directory()'"'
+        say 'Directory:   "'directory()'"'
         say 'Spoolfile:   "'spoolfile'"'
         say 'Smbprinter:  "'smbprintername'"'
+        say 'Jobname:     "'Jobname'"'
+        say 'pages:       "'pages'"'
+        say 'JobSize:     "'JobSize'"'
 
         ok = VRMethod( "Application", "ListPrinters", "printer." )
         FoundQueue = 0
@@ -151 +154 @@
 
         if FoundQueue then do
             ok = VRset("DT_Job","Caption", 'Print "'Jobname'" ('Pages', 'JobSize' bytes) to "'PName'"')
-            ok = VRPrintFile( smbprintername, directory'\'spoolfile, , JobName )
+            ok = VRPrintFile( smbprintername, spoolfile, , JobName )
             ok = SysSleep(3)
             /* ok = VRRedirectStdIO("OFF") */
         end
@@ -178 +181 @@
     window = VRWindow()
     call VRSet window, "Shutdown", 1
     drop window
+    ok = VRRedirectStdIO("OFF")
 return