Collate Copies

[MarcoBoschi]

Hi to all!

How do I fix this code for printing 2 copies and collate copies ?

Code: Select all  Expand view

#include "fivewin.ch"
#include "report.ch"

FUNCTION MAIN()
LOCAL oPrn
LOCAL oFnt1


  PRINT oPrn                 ;
        PREVIEW              ;
        TITLE "TEST"
        oPrn:SetPortrait()
        oPrn:SetCopies(2)
        DEFINE FONT oFnt1 NAME "Arial"            SIZE 0, -20  OF oPrn

        PAGE
        oPrn:Say( 900  , 300  , "PAGE 1"   , oFnt1  ,    ,   ,   , 1 )
        ENDPAGE

        PAGE
        oPrn:Say( 900  , 300  , "PAGE 2"  , oFnt1  ,    ,   ,   , 1 )
        ENDPAGE

  ENDPRINT

RELEASE FONT oFnt1

RETURN NIL
 

I have to print in Yellow and White sheets in this way

White Yellow
Pag 1 , 1
Pag 2 , 2
Pag 3 , 3

and so on


Directly from my code without having to open preferences dialog (of printer)

Many thanks

[MarcoBoschi]

I have this problem using an old program Visual Obiect and Report Pro too!

[Enrico Maria Giordano]

Marco,

try

Code: Select all  Expand view

PRNSETCOLLATE( lCollate )  --> lSuccess

EMG

[MarcoBoschi]

Ok,
I will try next year!
Many thanks Enrico