Forms 4.5: OLE2 - Printing multiple copies of Word6 document?

From: Ale¹ Okorn <ales.okorn_at_aster.si>
Date: Wed, 10 Nov 1999 10:46:57 +0100
Message-ID: <38293F11.7B333731_at_aster.si>

I am trying to print multiple copies of Word6 document in Forms 4.5 using FileOpen. I have problems setting the right arguments. Source code look like this:

 args := OLE2.CREATE_ARGLIST;

 OLE2.ADD_ARG(args,0);    --Background
 OLE2.ADD_ARG(args,0);    --AppendPrFile
 OLE2.ADD_ARG(args,'0');  --Range
 OLE2.ADD_ARG(args,'');   --PrToFileName
 OLE2.ADD_ARG(args,'');          --From
 OLE2.ADD_ARG(args,'');          --To
 OLE2.ADD_ARG(args,0);    --Type
 OLE2.ADD_ARG(args,to_char(pNumCopies));  --NumCopies
 OLE2.ADD_ARG(args,'');  --Pages
 OLE2.ADD_ARG(args,0);  --Order
 OLE2.ADD_ARG(args,0);  --PrintToFile
 OLE2.ADD_ARG(args,1);  --Collate
 OLE2.ADD_ARG(args,'');  --Filename

 OLE2.INVOKE(Basic,'FilePrint',args);
 OLE2.DESTROY_ARGLIST(args);

Could anyone send me the sample code that works?

Regards, Alesh Received on Wed Nov 10 1999 - 10:46:57 CET