Visual Basic

Private Sub CombineJobsInPrintQue(ByVal Printer As String)
        Try
            Dim serverName As String = Printer.Remove(Printer.LastIndexOf("\"))
            Dim printerName As String = Printer.Remove(0, Printer.LastIndexOf("\") + 1)
            Dim ps As New PrintServer(serverName, PrintSystemDesiredAccess.AdministrateServer)
            Dim queue As New PrintQueue(ps, printerName, PrintSystemDesiredAccess.AdministratePrinter)


            Dim Jobs As PrintJobInfoCollection = queue.GetPrintJobInfoCollection
            Dim Job As PrintSystemJobInfo
            Dim s As PrintSystemJobInfo = queue.AddJob("NewJob")
            Dim myStreamWrite As System.IO.Stream = s.JobStream
          
            Dim x As Integer = 0
            For Each Job In Jobs
                Try      
                    Job.Refresh()
		    Dim myStreamRead As System.IO.Stream = Job.JobStream
                    Dim buffer(Job.JobSize) As Byte
                    myStreamRead.Read(buffer, 0, Job.JobSize)
                    myStreamWrite.Write(buffer, x, Job.JobSize)

                    x += Job.JobSize
                    Job.Cancel()
                Catch ex As Exception
                    ERRlog("CopyJob", ex)
                End Try
            Next
            myStreamWrite.Close()
        
        Catch e As Exception
            ERRlog("CombineJobsInPrintQue", e)
        End Try
    End Sub

Private Sub CombineJobsTest(ByVal Printer As String)
        Try
            Dim serverName As String = Printer.Remove(Printer.LastIndexOf("\"))
            Dim printerName As String = Printer.Remove(0, Printer.LastIndexOf("\") + 1)
            Dim ps As New PrintServer(serverName, PrintSystemDesiredAccess.AdministrateServer)
            Dim queue As New PrintQueue(ps, printerName, PrintSystemDesiredAccess.AdministratePrinter)

            Dim Jobs As PrintJobInfoCollection = queue.GetPrintJobInfoCollection
            Dim Job As PrintSystemJobInfo
            Dim MyNewJob As PrintSystemJobInfo = queue.AddJob("Neu")

            Dim myStreamWrite As System.IO.Stream = MyNewJob.JobStream
            Dim myStreamRead As System.IO.Stream = New IO.FileStream("D:\Share\Temp\FP00119.SPL", IO.FileMode.Open)
	    Dim myStreamRead2 As System.IO.Stream = New IO.FileStream("D:\Share\Temp\FP00120.SPL", IO.FileMode.Open)

            Dim length As Integer = myStreamRead.Length + myStreamRead2.Length
            Dim buffer(Job.JobSize) As Byte
	    myStreamRead.Read(buffer, 0, myStreamRead.Length)
	    myStreamRead2.Read(buffer, myStreamRead.Length, myStreamRead2.Length)
	    myStreamWrite.Write(buffer, 0, length)
	    myStreamWrite.Close()      

        Catch e As Exception
            ERRlog("CombineJobsTest", e) 
        End Try
    End Sub

Dim autoEvent as New AutoResetEvent(False)
If autoEvent.WaitOne(1000) Then
   autoEvent.Reset
Else
   Close connection and inform user
End If

Sub Main
            console.writeline(getmyresult(2)) 'takes a while'
            console.writeline(getmyresult(3)) 'takes a while'
            console.writeline(getmyresult(2)) 'Should be instant'
            console.writeline(getMyresult(3)) 'Should be instant'
   End Sub

function getMyresult(X as interger) as integer
       dim Y as integer=LongCompute(X)
       return Y
end function


function LongCompute(X as integer) as integer
         system.threading.thread.sleep(1000)
         return x^2
end function