topic-31765

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Collate Copies
Posted: Tue Dec 29, 2015 02:13 PM

Hi to all!

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

#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

Marco Boschi
info@marcoboschi.it

MarcoBoschi

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Re: Collate Copies
Posted: Tue Dec 29, 2015 02:18 PM

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

Marco Boschi
info@marcoboschi.it

Enrico Maria Giordano

Posts: 9020