🚀 go-pugleaf

mike wrote:

>1- I am moving one spool file from a printer to another printer.

Are the printers attached to the same computer?
Maybe you could get away with a simple rename (see below)

>FileBuffer = (char *)( GlobalAlloc( GPTR, 16384 ) );

GPTR is a waste of time as you will be filling the buffer with a read
anyway.

> nErr  =   ::WritePrinter( hPrinter,(LPVOID)FileBuffer, ReadSize, 
>&WrittenSize);

Make sure you check ReadSize before writing.

>5- Once the file has been transferred I release the working buffer as 

Why not hang on to it until all the files are transfered?
(Not that it hurts, just a waste of cpu time.)

>Now this seems to work for awhile, that is the transfer of the data works 
>for a number of files, and then I get the error indicated

 "Not enough storage is available to process this command"
Perhaps the print server has run out of disk/spool space?

Do you cancel and remove the original job files as you go along?

Perhaps it would work better to use AddJob() to get a normal file name
and use normal file copying to place the file on the new printer's
computer. (See the docs for AddJob)
MoveFile() could be faster, especially if it is the same computer.
I don't know if you are allowed to delete a job file, but it would
make life simpler...
	SetJob( hp, OldJob, 0,NULL, JOB_CONTROL_PAUSE) 
	if(  MoveFile( OldFile, NewFile ) )
	{
		SetJob( hp, OldJob, 0,NULL,JOB_CONTROL_CANCEL)
 		ScheduleJob( NewJob )
	}else{
		if( CopyFile( OldFile, NewFile, FALSE) )
		{	RemoveFile( OldFile );
			SetJob( hp, OldJob, 0,NULL,JOB_CONTROL_CANCEL)
			ScheduleJob( NewJob )
	}	}